Delete Sheets

Hi

Does anyone have any suggestions for deleting an entire sheet in a workbook if Cell A1 in the Sheet is blank?

Thanks

Try

If Range("A1").Value = "" Then
Application.DisplayAlerts = False
Worksheets("Sheet1").Delete
Application.DisplayAlerts = True
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"STEVEB" <STEVEB.22iaty_1138723203.5802@excelforum-nospam.com>
wrote in message
news:STEVEB.22iaty_1138723203.5802@excelforum-nospam.com...
>
> Hi
>
> Does anyone have any suggestions for deleting an entire sheet
> in a
> workbook if Cell A1 in the Sheet is blank?
>
> Thanks
>
>
> --
> STEVEB
> ------------------------------------------------------------------------
> STEVEB's Profile:
> http://www.excelforum.com/member.php...fo&userid=1872
> View this thread:
> http://www.excelforum.com/showthread...hreadid=506797
>

Sub DelSheet()
Dim wb As Workbook
Dim ws As Worksheet
Dim a As Variant

Set wb = ActiveWorkbook
Set ws = wb.Worksheets("sheet1")
a = Range("A1").Value
'Put this in a for loop to change wb or ws as necessary
If a = "" Then
ws.Delete
Else
Set ws = wb.Worksheets("sheet2")
End If

End Sub

"STEVEB" <STEVEB.22iaty_1138723203.5802@excelforum-nospam.com> wrote in
message news:STEVEB.22iaty_1138723203.5802@excelforum-nospam.com...

One more way:
---------------------------------
Sub Button14_Click()
Application.DisplayAlerts = False
If IsEmpty([Sheet7!A1]) Then
Sheets("Sheet7").Delete
End If

End Sub
------------------------------

Bruno

Thanks everyone,

Everything worked great! I appreciate your help!