How do I check if a sheetname exists in a file?

[Guest]

Hello experts, I am a real novice so be patient please. I want to create a
script that allows me to check whether a particular worksheet exists in a
workbook. At the moment my script assumes 'sheet 1' exists:

[Sheets("Sheet 1").Delete]

However, if the sheet has been manually deleted by the user my macro crashes.

 

[NickHK]

Here's one way:
Dim WS As Worksheet
On Error resume Next
Set WS=Thisworkbook.Sheets("Sheet 1")
'You may want an Application.displayalerts=false/true
If Not WS is Nothing then WS.delete
On error goto 0

NickHK

Hello experts, I am a real novice so be patient please. I want to create a
script that allows me to check whether a particular worksheet exists in a
workbook. At the moment my script assumes 'sheet 1' exists:

[Sheets("Sheet 1").Delete]

However, if the sheet has been manually deleted by the user my macro

crashes.

 

[Guest]

Thanks Nick, it is perfect & much appreciated

Here's one way:
Dim WS As Worksheet
On Error resume Next
Set WS=Thisworkbook.Sheets("Sheet 1")
'You may want an Application.displayalerts=false/true
If Not WS is Nothing then WS.delete
On error goto 0

NickHK

Hello experts, I am a real novice so be patient please. I want to create a
script that allows me to check whether a particular worksheet exists in a
workbook. At the moment my script assumes 'sheet 1' exists:

[Sheets("Sheet 1").Delete]

However, if the sheet has been manually deleted by the user my macro

crashes.