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