Creating New Sheets based on list and template

Sub CreateSheets()

    Dim tmpSheet As Worksheet, lstSheet As Worksheet
    Dim rw As Long
    
    Set tmpSheet = Worksheets("BASE")
    Set lstSheet = Worksheets("LIST")
    
    For rw = 4 To lstSheet.Cells(Rows.Count, "D").End(xlUp).Row
        tmpSheet.Copy After:=Worksheets(Worksheets.Count)
        With ActiveSheet
            .Name = lstSheet.Cells(rw, "D")
            .Range("E1").Value = lstSheet.Cells(rw, "E")
        End With
    Next
    Application.DisplayAlerts = False
    lstSheet.Delete
    Application.DisplayAlerts = True
End Sub

Select allOpen in new window

If I want to keep the main sheet, what would the edited code be?

Also, to delete the code if the workbook gets passed on do you open VB editor and delete "module 1" (if that's what I saved it as).

Sub RenameSheets()

    Dim lstSheet As Worksheet, ws As Worksheet, rw As Long
    
    Set lstSheet = Worksheets("LIST")
    
    For rw = 4 To lstSheet.Cells(Rows.Count, "D").End(xlUp).Row
        On Error Resume Next
        Set ws = Worksheets(lstSheet.Cells(rw, "D").Value)
        If Not ws Is Nothing Then
            ws.Name = lstSheet.Cells(rw, "F")
        End If
        On Error GoTo 0
    Next
    
End Sub

Select allOpen in new window