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!

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)

wrote in message
ps.com...
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!