Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 Or Target.Row > 12 Then Exit Sub If Target.Column = 1 Or Target.Column > 9 Then Exit Sub If Target.Count > 1 Then Exit Sub [a16] = Cells(Target.Row, 1) [b16] = Cells(1, Target.Column) [c16] = Cells(Target.Row, Target.Column) End Sub