Hidden Worksheets - Detect & Delete

[MR3]

I would like to Insert Code that will auto detect and delete hidden worksheets in my vb macro. Insertion will be at top of code since more worksheets will be generated later.

Reason for the code: if WorkSheet Names are clashing the code will Error out.

 

[Jonmo1]

Try

Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Sheets
    If Not ws.Visible = True Then
        ws.Delete
    End If
Next ws
Application.DisplayAlerts = True
End Sub

Hope that helps.

 

[MR3]

works! thanks