Looping through worksheets and delete

[OscarJr15]

Hello,

I have workbook that I send out every week and I want to be able to delete worksheets whose names begin with the letter "x". I don't want to do this manually every week and would love to automate the process some how.

Any help would be greatly appreciated.

Thanks

 

[Derek Brown]

Try the following:

Sub DeleteSheets()
Dim lngKount As Long
'
Application.DisplayAlerts = False
'
For lngKount = Sheets.Count To 1 Step -1
    If Left(Sheets(lngKount).Name, 1) = "x" Then
        Sheets(lngKount).Delete
    End If
Next lngKount
'
Application.DisplayAlerts = True
'
End Sub

When deleting worksheets, it is safer to start with the last and work backwards.
If you should have all worksheet names starting with 'x' you will get an error because you must have at least one in the workbook.
Important: test this on a copy of your workbook first.