View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default 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.