Sizide çok uğraştırdık. Lütfen hakkınızı helal ediniz. Yaptığım araştırmalar neticesinde benim istediğim işleme yakın kodu buldum sanırım. Bu kod hücreye çift tıklayınca başlıyor herhangi bir hücreye tıklayınca duruyor. Sizden ricamız bu kodu düğmeye atayabilir misiniz. Düğmeye tıklayınca çalışsın tekrar düğmeye tıklayınca dursun.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Step 1:  Declare Variables
    Dim strRange As String
'Step2:  Build the range string
    strRange = Target.Cells.Address & "," & _
               Target.Cells.EntireColumn.Address & "," & _
               Target.Cells.EntireRow.Address
'Step 3: Pass the range string to a Range
    Range(strRange).Select
End Sub