Ws.delete - Help

[fpskidmark]

Hi All,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I'm stump on problem and I need some advice,<o></o>
The code below has been working for a while now, but today, for some odd reason, it's not working.<o></o>
I have spreadsheet that has 16 sheets with range (S1) populated, meaning all 16 sheets should be populated, but for some reason only 14 sheet are displayed. The last 2 sheets "15", "16" were deleted.<o></o>
Note: Both deleted sheets had a value on range (S1).<o></o>
Please help!
<o></o>

Dim ws As Worksheet
Application.DisplayAlerts = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Summary" And ws.Range("S1") = "" Then ws.Delete
    Next ws
Application.DisplayAlerts = True

Thanks,
FP

 

[JoeMo]

Your code looks ok. Could S1 have a formula in it that returns ""? If not, it seems S1 was empty in those sheets. You could add a warning to your code:

If ws.Range("S1") = "" Then
   msgbox "S1 is empty on sheet " & ws.name &  vbnewline & "Delete?",   vbYesNo
'rest of code

 

[fpskidmark]

Thanks JoeMo,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
That code looks good, but this macro is designed to run for 10 different employees so I rather not have 10 msg prompt every time we run the macro.<o></o>
Since the macro is deigned for other users to use, I rather keep it as simple as possible.<o></o>
<o></o>
I changed code to read: if S1 > 1 the ws.delete (A number should be populated in range (S1). It's running ok now:
<o></o>

 For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Summary" And ws.Range("S1") > 1 Then ws.Delete
    Next ws