Private Sub Worksheet_SelectionChange(ByVal Target As Range) strOld = Cells(Target.Cells.Row, Target.Cells.Column) i = Target.Cells.Row k = Target.Cells.Column c = Target.Cells.Count End Sub