Detele Sheet if Cell A15 = " ", but never Sheet1

[MAButler]

This is what i have so far and it works, but i want to add a line that tells it to ignore sheet 1.

Dim shtTemp As Worksheet
    
    Application.DisplayAlerts = False
    For Each shtTemp In ActiveWorkbook.Worksheets
        If shtTemp.Range("A15") = "" Then
            shtTemp.Delete
        End If
    Next
    Application.DisplayAlerts = True
[\code]

 

[meldoc]

Hello

Try.

<font face=Courier New>Application.DisplayAlerts = <SPAN style="color:#00007F">False</SPAN><br>  For Each shtTemp In ActiveWorkbook.Worksheets<br>    If shtTemp.Index <> 1 Then<br>      If shtTemp.Range("A15") = "" Then<br>      shtTemp.Delete<br>      <SPAN style="color:#00007F">End</SPAN> If<br>    <SPAN style="color:#00007F">End</SPAN> If<br>  <SPAN style="color:#00007F">Next</SPAN><br>Application.DisplayAlerts = <SPAN style="color:#00007F">True</SPAN><br></FONT>

 

[MAButler]

Thanks......
Just what the doctor ordered...