Sheet Exists Problem

[robcarr]

Hi,

having a problem with a sheet exists function

i have this

f WksExists(stsht) Then

Else

End If


Function WksExists(wksName As String) As Boolean
On Error Resume Next
WksExists = CBool(Len(Worksheets(wksName).Name) > 0)
End Function

i get a subscript out of range.

shsht is a value from a loop that the if is in.



Hope this is of use, Rob.

 

[combo]

The quick solution is to change error trapping settings to 'break on unhandled errors' (Tools>Options =>'General' tab). However, this depends on local user settings. An alternative - create For Each...Next loop and compare sheet names.

combo

 

[robcarr]

just figured it out, not sure why it was not set, must have been playing with something before.

Hope this is of use, Rob.