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