In following demonstration video I will implement Excel Visual Basic macro that reads worksheet names from the cells A1, A2, A3, … in sheet “Sheet1” and creates new worksheets with correct names.
For simplicity there is no error handling etc and following simple code does the trick:
Sub createsheets() Dim newsheet As Worksheet Dim r As Integer r = 1 Do While Sheets("Sheet1").Cells(r, 1).Value <> "" Set newsheet = Sheets.Add newsheet.Name = Sheets("Sheet1").Cells(r, 1).Value r = r + 1 Loop End Sub