You want it to continue down the same column whenever a new selection
is made? Is that right? If so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Value = Target.Text
End If
End Sub
Lella wrote:
Thank you so much...but one other question. I have a column of different ID#
whenever I press more than one it removes the previous selection on the
request form. What do I do to make the selections continue down the request
form?

"JW" wrote:

On the sheet where you where the client will be clicking, place this
in the sheet module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsEmpty(Target) Then _
Sheets("Sheet2").Cells(1, 1).Value = _
Target.Text
End If
End Sub

You will most likely have to make some changes to this. This is
assuming that the ID is in column 1 and that you want the values
placed in A1 of Sheet2. Simply make the necessary adjustments.

Lella wrote:
I've been asked to set-up an inventory sheet of graphics, banners etc. and a
Request form for our client to fill out. I am trying to combine the two so
that the client can click on the ID# in one sheet and that number fills
itself into the Request form on another sheet.