You can try this

Sub Button1_Click()
Dim rw As Long
rw = Range(ActiveSheet.Shapes(Application.Caller).TopLe ftCell.Address).Row
Range(Cells(rw, "A"), Cells(rw, "D")).Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Paul Brown" wrote in message ...
Hello all,

I'm looking to create a macro which will run from a Form Button. Form buttons will be located at the end of each row. How can I
make the form button select the cells in the row that the form button is on? For example if the active cell is c12 and I press the
form button at the end of row 5 the macro runs fine but it runs on the data in row 12 rather than row 5 (basically it copies that
data and moves it somewhere else).

Any help appreciated.

Paul.