Greetings, all.

Would someone help me write code to for my workbook to delete a worksheet(s)
if I have two empty cells? For example, if I have a date cell AND a job
number cell empty I would need that worksheet deleted.

Any help would be much appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200908/1

Perhaps something like this:


Sub DeleteSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
'Change ranges as appropriate
If ws.Range("A4") = "" And ws.Range("B4") = "" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Mark_F via OfficeKB.com" wrote:

Greetings, all.

Would someone help me write code to for my workbook to delete a worksheet(s)
if I have two empty cells? For example, if I have a date cell AND a job
number cell empty I would need that worksheet deleted.

Any help would be much appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200908/1

Thank you, Luke, for your response. I will give it a try!

Luke M wrote:
Perhaps something like this:

Sub DeleteSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
'Change ranges as appropriate
If ws.Range("A4") = "" And ws.Range("B4") = "" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
Greetings, all.

[quoted text clipped - 3 lines]

Any help would be much appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200908/1