Run Macro Via Cell

[mrdevon]

Is it possible to run a macro when you click on a certain cell A1 for example instead of the keyboards shortcut

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Y
'
Range("B10:D19,M10:O19").Select
Range("M10").Activate
Selection.ClearContents
End Sub

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    Application.EnableEvents = False
    Call Macro1
    Application.EnableEvents = True
End If
End Sub

 

[mrdevon]

Nope that didn't work unfortunately