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("A2").Value = sh.Range("B" & i).Value
            .Range("D2").Value = sh.Range("A" & i).Value
            .Range("G2").Value = sh.Range("C" & i).Value
        End With

    Next i
    
Create_Hyperlinks
End Sub