Dec 21 2020 07:38 AM
Dec 21 2020 09:08 AM
You have data in 220 rows, and you want to create a sheet that named with each row, is that what you want?
If so, you can use this vba code, look at the attached photo
Sub AddSheets() 'Updateby Extendoffice Dim xRg As Excel.Range Dim wSh As Excel.Worksheet Dim wBk As Excel.Workbook Set wSh = ActiveSheet Set wBk = ActiveWorkbook Application.ScreenUpdating = False For Each xRg In wSh.Range("A1:A220") With wBk .Sheets.Add after:=.Sheets(.Sheets.Count) On Error Resume Next ActiveSheet.Name = xRg.Value If Err.Number = 1004 Then Debug.Print xRg.Value & " already used as a sheet name" End If On Error GoTo 0 End With Next xRg Application.ScreenUpdating = True End Sub