Deleting information macro

Good afternoon Scott McDermott

How about something like this :

Sub Macro1()
response = MsgBox("Continue", vbYesNo, "Alert!")
If response = vbYes Then
ActiveSheet.UsedRange.Select
For Each rng In Selection
If rng.Locked = False Then
rng.Clear
End If
Next rng
End If
End Sub

HTH

DominicB

Hi Scott McDermott

Thanks, that nearly works great i have mutipal sheats in the workbook that i need to clear at once, and the macro you tried total clears the cell gits rid of the color format and the boarders.. anything a little less agressive and will hit all the sheets at once? thanks

Hey! That's moving the goalposts

Try this :

Sub Macro1()
response = MsgBox("Continue", vbYesNo, "Alert!")
If response = vbYes Then
Application.ScreenUpdating = False
For Each AllSheet In ActiveWorkbook.Worksheets
Sheets(AllSheet.Name).Activate
ActiveSheet.UsedRange.Select
For Each rng In Selection
If rng.Locked = False Then
rng.ClearContents
End If
Next rng
Next AllSheet
End If
Application.ScreenUpdating = True
End Sub

HTH

DominicB