Interupt code with message before it runs

  • Thread starter Thread starter Gotroots
  • Start date Start date
G

Gotroots

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.
 
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
 
Copy paste the code and try

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
 
I made a typo error. Sorry for the false alarm.

Jacob Skaria said:
Copy paste the code and try

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
 
Back
Top