M
Michael
after a new user profile was given the following function gives RT-error
"index out of range"
Private Function sheetexist(shn As String) As Boolean
On Error Resume Next
sheetexist = Worksheets(shn).Name = shn
End Function
Annoying, although easy to reprogram.
No idea where to look for solution
"index out of range"
Private Function sheetexist(shn As String) As Boolean
On Error Resume Next
sheetexist = Worksheets(shn).Name = shn
End Function
Annoying, although easy to reprogram.
No idea where to look for solution