Running a macro

[Derek Upson - Pioneer]

I have a spreadsheet model. Within the model are a bunch of fields
requiring input. I wanted to have a macro that would clear all of these
fields so someone could start over. That was the easy part. However, I
don't want someone to click on the button that starts the macro by accident
(wiping out everything already done). Therefore, I want to add a pop-up box
to the beginning of the macro that asks the user to verify that they want
all contents cleared. Can someone help me understand how this can be added
to the macro? Thanks in advance.

 

[CLR]

If you post it (your code)..........someone will help

Vaya con Dios,
Chuck, CABGx3

 

[Mike H]

Maybe this

Sub clearrange()
msg = "Are you sure you want to clear range?"
response = MsgBox(msg, vbOKCancel)
If response = vbOK Then
'Do your stuff
MsgBox "You pressed OK"
Else
MsgBox "You pressed cancel"
Exit Sub
End If

End Sub

Mike

 

[Derek Upson - Pioneer]

i sent a reply with my excel spreadsheet attached and it did not go through.
are attachments restricted in this newsgroup?

 

[CLR]

I don't know about "restricted", but they are not desired......just copy and
paste your code, or take a look at Mike's suggestion......

Vaya con Dios,
Chuck, CABGx3

 

[Derek Upson - Pioneer]

sorry for my ignorance. However, below is what I have so far....where would
you suggest putting the code below and do I need to replace any of the words
in the code below with a reference to my existing code?

Sub ClearContents()
'
' ClearContents Macro
' Clear all Fields in Table
'

'
Range("I66").Select
Selection.ClearContents
Range("I77").Select
Selection.ClearContents
Range("I99").Select
Selection.ClearContents
Range("I1010").Select
Selection.ClearContents
Range("I1111").Select
Selection.ClearContents
Range("I1212").Select
Selection.ClearContents
Range("I1313").Select
Selection.ClearContents
Range("U6:X6").Select
Selection.ClearContents
Range("U7:X7").Select
Selection.ClearContents
Range("U52:X52").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("Q55:T55").Select
Selection.ClearContents
End Sub