D
Dave Peterson
Maybe just a macro that does something like this:
Option Explicit
Sub testme01()
With ThisWorkbook
With .Worksheets("sheet1")
.Range("a1:c99").ClearContents
End With
With .Worksheets("sheet99")
.Range("a1,b9,c33").ClearContents
End With
End With
Application.Dialogs(xlDialogSaveAs).Show
End Sub
You'll have to adjust the worksheet names and ranges to clear.
Option Explicit
Sub testme01()
With ThisWorkbook
With .Worksheets("sheet1")
.Range("a1:c99").ClearContents
End With
With .Worksheets("sheet99")
.Range("a1,b9,c33").ClearContents
End With
End With
Application.Dialogs(xlDialogSaveAs).Show
End Sub
You'll have to adjust the worksheet names and ranges to clear.