Try this: Sub Make_Sheets() Dim vCnt, vNum ThisWorkbook.Activate Sheets("Form").Select Application.ScreenUpdating = False vCnt = Application.WorksheetFunction.CountA(Sheets("Vehicle List").Range("A1:A65000")) For vNum = 2 To vCnt Sheets("Form").Copy After:=Sheets(3) Range("D56").Value = Sheets("Vehicle List").Cells(vNum, "A").Value Next vNum Application.ScreenUpdating = True End Sub
You'll have to save your file as .xlsb or .xlsm, but I prefer .xlsb Paul ----------------------------------------- “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley ----------------------------------------- ________________________________ From: John A. Smith <johnasmit...@gmail.com> To: excel-macros@googlegroups.com Sent: Tue, November 8, 2011 2:16:05 PM Subject: $$Excel-Macros$$ Macro To Add a Cell From A List And Create A New Tab I have a spreadsheet with a tab called Form. There is a second tab called Vehicle List. I need a macro to take the first vehicle on the list and put that number in cell D56 of the form tab and then copy the tab and repeat this process until all the vehicle numbers are on the form in their own tab. The tab names are not important as the spreadsheet will be saved in the pdf format and the tabs will become pages. Thank you for your help. John-- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (925+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com