Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function RangeToString(ByVal myRange As Range) As String RangeToString = "" If Not myRange Is Nothing Then Dim myCell As Range For Each myCell In myRange If Not myCell.Value = "" Then RangeToString = RangeToString & "," & myCell.Value End