Determining if a worksheet exists

Hi when I try to do the following I get an error 'Subscript out of range'

    If Not .Worksheets(ws_name_string) Is Nothing Then

To do this do I HAVE to then have a worksheet variable to test against, such as:

Dim ws as Worksheet

With ThisWorkbook
    on error resume next
    Set ws = .worksheets(ws_name_string) 
    on error goto 0
    If Not ws Is Nothing Then
    ...
    ...
    End If
End With

I was hoping I might be able to achive the same test within one line?

Thanks

You could possibly think of going down the Evaluate route

If Not IsError(Evaluate("COUNTBLANK('" & ws_name_string & "'!A1)")) Then

End If

The use of COUNTBLANK should cater for A1 on sheet of interest containing an error value if exists.

Here's a UDF that tests if a worksheet exists

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

Use it like this

If Not WksExists("test") Then
Msgbox "Not there"
Else: 'o something else
End If

Cheers all