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