Hi Anil,
-Right click on Sheet's Tab and View Code
-Select Worksheet object in module view
-Select SelectionChange event.
-Write this code in it
If Target.Rows.Count = 65536 Then MsgBox Target.Column
It should seems like this:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 65536 Then MsgBox Target.Column
End Sub
Regards
Suat
This message was edited by smozgur on 2002-08-24 08:01