Hi Diane,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
ActiveCell.Resize(1, 7).Copy Sheets("Sheet2").Range("B2")
Sheets("Sheet2").Select
End Sub

Where you will select a cell in column A and that cell and the next 6 in the
row are displayed starting in B2 of sheet 2.

HTH
Regards,
Howard

"Diane" wrote in message
...
How can I click on a row (or cell) and that record is seen separately on a
different worksheet.