I need to look for a sheet name within a workbook and run a macro if the
sheet name does not exist. any suggestions?

I have used a form of the following:

On error goto macrorun
Sheets("Sheetname").Activate

macrorun:
call your macro
--
Best wishes,

Jim


"jkt" wrote:

I need to look for a sheet name within a workbook and run a macro if the
sheet name does not exist. any suggestions?

I forgot to mention that if there are worksheets that are hidden, you would
need to add:
On error resume next
Sheets("sheetname").visible=true
on error goto 0

Then the rest from the previous response.
--
Best wishes,

Jim


"jkt" wrote:

I need to look for a sheet name within a workbook and run a macro if the
sheet name does not exist. any suggestions?

Using this code may cause you a problem as it moves from normal execution to
exectuion within an errorhandler (there is no resume statement to exit the
error handler). This means that if any other error are generated they can not
be handled. You are better off with code like this...

sub do whatever()
if sheetexists("Sheet1") = false then
call MyMacro
end if
exit sub

Public Function SheetExists(SName As String, _
Optional ByVal Wb As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If Wb Is Nothing Then Set Wb = ThisWorkbook
SheetExists = CBool(Len(Wb.Sheets(SName).Name))
End Function
--
HTH...

Jim Thomlinson


"Jim Jackson" wrote:

I have used a form of the following:

On error goto macrorun
Sheets("Sheetname").Activate

macrorun:
call your macro
--
Best wishes,

Jim


"jkt" wrote:

I need to look for a sheet name within a workbook and run a macro if the
sheet name does not exist. any suggestions?