Run Keyboard shortcut if in sheet "To" cell A1 has value "YES"

hello, sir
i m using a shortcut Ctrl+G to run a code.

Sub FILL_TOTAL_FORMULA()
    ' Keyboard Shortcut: Ctrl+G
    Application.EnableEvents = False
    Sheets("TOTAL").Select
    Range("C4:L4").Select
    Selection.AutoFill Destination:=Range("H4:I53")
    Application.EnableEvents = True
End Sub

i want if In Sheets "To" in cell "A1" have value "Yes" then run the code otherwise not

thanx