Sub Create_Worksheets()
Dim strNewSheet As String
Do
strNewSheet = "asdf"
If strNewSheet <> "" Then
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = strNewSheet
End If
Loop Until strNewSheet = ""
End Sub