Copy/Paste from list of serial numbers to different sheets

[qrb661r]

I'm relatively good with excel formulas but not VBA and I've exhausted my Google-Fu skills on this one so any help would be greatly appreciated.

We have 1 sheet with a list of serial numbers in column A. Intent is to sequentially paste it into cell B3 of multiple template property information forms that are all identical except for the serial number, 98 templates to be exact, one for each serial number.

Is there any way to do this with VBA?

 

[maabadi]

Welcome to MrExcel Message Board.
After Paste of Each Serial Number to Cell B3, What you want? Save template as PDF? Save it as new sheet? or ....

 

[maabadi]

if you want to Add specific sheet for Each Serial Number & also add link to them, you can use this macro.
Notes: I supposed your serial numbers sheet name is Sheet1 and template sheet is Sheet2 and sheets add after Sheet2.

Sub AddSerialtoTemplate()
Dim i As Long, Lr As Long, J As Long
Lr = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
    Sheets("Sheet2").Copy After:=Sheets(i)
    Sheets(i + 1).Name = Sheets("Sheet1").Range("A" & i).Value
    Sheets(i + 1).Range("C3").Value = Sheets("Sheet1").Range("A" & i).Value
    Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("Sheet1").Range("A" & i), Address:="", SubAddress:= _
        "'" & Sheets("Sheet1").Range("A" & i).Value & "'!C3", TextToDisplay:=Sheets("Sheet1").Range("A" & i).Value
Next i
End Sub

 

[qrb661r]

That worked perfectly, thank you very much!

 

[maabadi]

You're Welcome & Thanks for feedback.