Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Macro
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Need syntax for RUNning a Word macro with an argument, called from an Excel macro | Excel Programming | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |