Thank a lot sir,, its working...
vickey
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.l
add this to sheet 1 change event
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Sheets(2).Range("f9").Value = Sheets(1).Range("b" & Target.Row).Value
Sheets(2).Range("k6").Value = Sheets(1).Range("a" & Target.Row).Value
Sheets(2).Range(