Quote:
question - is there a way that the info can be copied into merged cells A1, D1 and G1 without overwriting the 'Type:', 'Ser no:' and 'User:' text?
|
I assume you mean like this
Code:
Sub Create_Name_WorkSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("CFD Basic Info")
Application.ScreenUpdating = 0
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
Sheets("Template").Copy After:=sh
With ActiveSheet
.Name = sh.Range("A" & i).Value
.Range("A1").Value = .Range("A1").Value & " " & sh.Range("B" & i).Value
.Range("D1").Value = .Range("D1").Value & " " & sh.Range("A" & i).Value
.Range("G1").Value = .Range("G1").Value & " " & sh.Range("C" & i).Value
End With
Next i
Create_Hyperlinks
End Sub