Delete a sheet if it exists without looping?

**vwhite** · 08-17-2020, 06:19 AM

Hi All

It may well be that this is not possible, but is there anyway to delete a sheet if it exists without looping through every worksheet?

Something like:

'Sheets("Pivot Rows").Delete
'On Error Resume Next

If Error Then GoTo ErrorHandler:
Sheets("Pivot Rows").Delete
ErrorHandler:

Both of the above give me a run-time error '5': Invalid procedure call or argument

Many thanks in advance

**Sintek** · 08-17-2020, 06:25 AM

Sub sintek()
Dim Shtname As String
Shtname = "Whatever"
Application.DisplayAlerts = False
If Evaluate("ISREF('" & Shtname & "'!A1)") = True Then Sheets(Shtname).Delete
Application.DisplayAlerts = True
End Sub

**vwhite** · 08-17-2020, 06:33 AM

Perfect thank you so much!

**Sintek** · 08-17-2020, 07:05 AM

Glad I could contribute...tx for rep +

Delete a sheet if it exists without looping?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete a sheet if it exists without looping?

Re: Delete a sheet if it exists without looping?

Re: Delete a sheet if it exists without looping?

Re: Delete a sheet if it exists without looping?

Thread Information

Users Browsing this Thread

Similar Threads

Macro to delete a value that already exists in another sheet

[SOLVED] If sheet exists called Sheet* then delete

[SOLVED] Delete sheet if it exists

[SOLVED] Check if sheet exists and delete it using IF ERROR function in VBA

[SOLVED] Delete rows in sheet by looping backwards !

Delete a sheet, if it exists

delete sheet if exists help needed

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions