How to assign a worksheet change codes to a button to refresh the values

[anish.ms]

Dear Experts,

The values in columns 7 and 8 are based on a formula. Hence, the code doesn't work whenever there is a change in the value calculated by the formula. Is there any way to assign these 2 subs a button for a given range in addition to the worksheet change event?



Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim iMax As Long
iMax = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

For Each rCell In Target.Cells
If (rCell.Column = 7 Or rCell.Column = 8 Or rCell.Column = 11) And (3 <= rCell.Row) And (rCell.Row <= iMax) Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
Call Risk_Rating(rCell)
Call Audit_Plan(rCell)
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End If
Next
End Sub

[SamT]

Delete "Private" from Worksheet Event code declaration
Button Code:

Worksheet_Change Range("G:H")
End Sub

If you can't delete "Private", (I've never tried...) You might need an intermediary Sub for the Button(s) to call

Sub Intermediary(ByVal Target as Range)
Me.Worksheet_Change Target
End Sub

[anish.ms]

Thanks Sam!
the first option is working