Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Do Loop Until Loops with Worksheets

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