Creating a tick by clicking a cell

[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.