If worksheet from array exists then not working

[dean.brunne]

Hi-I have an array that before it loops throught the code to create
worksheets i need to determine if the worksheet name already exists.
If it does I want a msgbox to appear then exit the sub. I created the
code below but it does not work. Error:Run time 438 Object doesn't
support this property or method.

If ThisWorkbook.Worksheets(MyArray(i, j)).Exists Then

MsgBox "Cost Centres already exist."
Exit Sub

Else

Please help. Thanks!

 

[Bob Phillips]

Here is some code to check


'-----------------------------------------------------------------
Function SheetExists(Sh As String, _
Optional wb As Workbook) As Boolean
'-----------------------------------------------------------------
Dim oWs As Worksheet
If wb Is Nothing Then Set wb = ActiveWorkbook
On Error Resume Next
SheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing)
On Error GoTo 0
End Function



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)