Deleting information macro

[Scott McDermott]

i was wondering if anyone knows how i can have a macro to delete all information in a workbook (only unlocked cells) and have a warning box pop up with a delete confermation before the delete is completed and you can stop the delete if the button was hit by mistake thanks...

[dominicb]

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

[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

[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