This will move the first worksheet to the end...
Worksheets(1).Move After:=Worksheets(Sheets.Count)
--
Jim Cone
Portland, Oregon USA
http://tinyurl.com/XLCompanion



"USA"
wrote in message
...
Hi,

I would like run a macro to copy a specific sheet for example sheet
number 1 and put after the last sheet
then open a window to selcet the first name then another window to
selct the last name . Then the postition number . Finaly the employer
id.
the first name and the last name on on filed =b5 (Lastname, First
name)

position number = f4
employer number =f5

Thank you