Hi all (again)

Goalpost have changed.

The problem I have to overcome is, I have a database matrix for
X-references. I have added the cross-references as links to the first column,
specific row. Using the Case statement, I am trying to find each reference,
goto the source, select the row, then copy and paste into another worksheet.
Have tried various options, starting to get confused about the option tried.

Any guidance would be appreciated.


ComboBox2.ListIndex = -1
ComboBox3.ListIndex = -1
ComboBox4.ListIndex = -1
ComboBox5.ListIndex = -1
Dim refrange As Range
Dim c As Range
Select Case ComboBox1.Value
Case "GSOP_0286"
Set refrange = Sheets("Data").Range("A3:A20")
For Each c In refrange
ActiveCell.Select
Application.Goto Reference:=""
Rows.Select
Selection.Copy
Sheets("Report").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Next c

--
Brian McCaffery