Right click on the Sheet Tab and Place this in the code area:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheet1
If Not Intersect(Target, Me.Range("A1:A5")) Is Nothing Then ' Chnage the
Range to suit what cell you want to Click on
ActiveCell.Select
'Place your macro ro CALM macro here
End If
End With
End Sub


adjust to suit

Corey....



"shlomit" wrote in message
...
Hi,

I want to play macro by clicking on cell.
Can I do it?

Thanks,
Shlomit