1) Call Worksheet_name.CommandButton1_Click, and you will have to make it a
Public Sub.

2) A Sub doesn't return a result, so best to change that procedure to do it

Me.Cells(Me.Rows.Count,"B").End(xlUp).Offset(1,0). Value = the_value

3) frmNewJob.Show

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Anthony" wrote in message
...
Hi all,

Can anybody provide some code (as I am still new to this) that will
execute
the following tasks

1) call the private macro called Private Sub CommandButton1_Click()
2) take the result from the above macro (which would be placed in the next
available row in column B in Sheet 1) and place it into the next available
row in column A of DATA worksheet
3) run the frmNewJob userform

any help appreciated and thanks in advance