For Each ws In wbk1.Worksheets
        
        With ws
        
            With .Columns("A")
            
                .NumberFormat = "General"
                .TextToColumns , xlDelimited, , , , , False, False, False
            End With
        
            Select Case .Name
                Case "Sheet1", "Sheet2", "Sheet4", "Sheet6"
                    .Range("B1").EntireColumn.Insert
                    .Range("B1").Value = "Historic/New"
                    lr = .Cells(Rows.Count, "A").End(xlUp).Row
                    .Range("B2:B" & lr).Formula = "=IF(ISERROR(VLOOKUP(A2,'[" & wbk2.Name & "]Sheet1'!$A$1:$A$10000,1,False)),""New"",""Historic"")"
            End Select
        End With
    Next ws