Q3PD,

Use code like:

Sub TransferData()
Dim myRow As Long
myRow = Activecell.Row

Sheets("Invoice").Range("A10").Value = Sheets("OrderDetails").Cells(myRow,1).Value
Sheets("Invoice").Range("B23").Value = Sheets("OrderDetails").Cells(myRow,2).Value
Sheets("Invoice").Range("C6").Value = Sheets("OrderDetails").Cells(myRow,3).Value
Sheets("Invoice").Range("E12").Value = Sheets("OrderDetails").Cells(myRow,4).Value
Sheets("Invoice").Range("A19").Value = Sheets("OrderDetails").Cells(myRow,5).Value
'I hope you can see the pattern here....
End Sub

HTH,
Bernie
MS Excel MVP


"q3pd" wrote in message
...
I have a worksheet called 'Invoice' which has many cell references to another
worksheet called 'OrderDetails' in the same workbook. OrderDetails is the
sheet used to store relevant information on each specific order.
I want to be able to select a row on my 'OrderDetails' sheet, then perform
an action (ie: click a button maybe) so that the Invoice sheet takes the cell
references from the higlighted row only.
This will allow me to generate an invoice using the cell references from the
highlighted row only.
I have tried recording a macro that highlights a row then copies the Invoice
sheet and resets the cell references to the higlighted row but this only
works if the row remains the same numbered row.
Can anyone help with any solutions or new ideas?
--
Q3PD