Interupt code with message before it runs
Try the below
Private Sub Filldown_formula_Click()
If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If
End Sub
--
Jacob
"Gotroots" wrote:
I want to include the option to accept or cancel an action before the code
runs.
Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub
By including this msgBox which includes a Yes or No command buttons.
MsgBox "This will reset the formula, do you wish to proceed"
Thank you if you can help.
|