Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub

try

Sub ifcolaandbblank()
If WorksheetFunction.CountA(Columns("a:b")) 0 Then
'do this
Else
On Error GoTo nono
Application.DisplayAlerts = False
Sheets("sheet3").Delete
Sheets("sheet3a").Delete
Application.DisplayAlerts = True
End If
Exit Sub
nono:
MsgBox "not there"
End Sub--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sal" wrote in message
...
Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub

Precisely what I was looking for help with. This is great. Thank you.

"r" wrote:

Sub test()
Dim rng As Excel.Range
On Error Resume Next
Set rng = Columns("A:B").SpecialCells(xlCellTypeConstants, 23)
On Error GoTo 0
If TypeName(rng) = "Range" Then
'to put a long code here
Else
'Application.DisplayAlerts = False
'Sheets("Sheet3").Delete
'Sheets("Sheet3a").Delete
'Application.DisplayAlerts = True
End If
End Sub

regards
r

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"Sal" wrote:

Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub

This is really good stuff. Thank you very much.

"Don Guillett" wrote:

try

Sub ifcolaandbblank()
If WorksheetFunction.CountA(Columns("a:b")) 0 Then
'do this
Else
On Error GoTo nono
Application.DisplayAlerts = False
Sheets("sheet3").Delete
Sheets("sheet3a").Delete
Application.DisplayAlerts = True
End If
Exit Sub
nono:
MsgBox "not there"
End Sub--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sal" wrote in message
...
Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub