Solved: Delete Worksheets according to cell value

[jacksonworld]

Hi, I have a basic problem for anyone kind enough to help.

How do I delete all worksheets that do not have a value in say, cell A2?

Thanks

[next]

i'm a nOob, but i think this should do the trick:

If Worksheet("name").Range("A2") Is Nothing Then
Worksheet("name").Delete
End If

[jacksonworld]

Thanks, but that will only work for one worksheet

[next]

My bad, i misunderstood you, fixed it:

Sub Delete_blanks()
Application.DisplayAlerts = False
Dim TabCount As Integer, i As Integer
TabCount = ActiveWorkbook.Worksheets.Count

For i = 1 To TabCount
If Worksheets(i).Range("A2") = "" Then
Worksheets(i).Delete
End If
Next i

End Sub

[jacksonworld]

Interesting. It looked to be working, then reached an error at If Worksheets(i).Range("A2") = "" Then

[next]

Works fine, but only with 2 sheets though :whistle: .
This one shouldn't cause any errors:

Sub Delete_blanks()
Application.DisplayAlerts = False
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Range("A2") = "" Then: ws.Delete
Next ws
End Sub

[jacksonworld]

:biglaugh:

Fantastic. It works perfectly.

Thank you very much. Cheers

[Bob Phillips]

Works fine, but only with 2 sheets though :whistle: .


Work backwards



Sub Delete_blanks()
Application.DisplayAlerts = False
Dim TabCount As Integer, i As Integer
TabCount = ActiveWorkbook.Worksheets.Count

For i = TabCount To 1 Step -1
If Worksheets(i).Range("A2") = "" Then
Worksheets(i).Delete
End If
Next i

End Sub