Extract worksheet for each item in form-Combo Box

[MarkCBB]

Hi there,

I have a dashboard that I use for a survey report, all the charts and tables are linked to a form combox box, is there some code that I can use to loop though all the items of the combo box, loop until the value in A1 is = to the value in B1,

Currently I am using this:

Sub Test()

    Sheets("Sheet1").Copy
    Windows("Book1").Activate
    Range("A1").Value = Range("A1").Value + 1
    Sheets("Sheet1").Copy

End Sub

But I need to be able to save each new workbook as the value that appears in C1. i.e. the name of the item in the combo box.

I can figure out the loop part of this but I cant figure out how to do the saving of the new workbooks, can someone lend me a hand?

 

[MarkCBB]

just supprised myself.

Sub Macro1()

    Sheets("Sheet1").Copy
    
    ChDir "C:\Users\user\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\" & Range("C1").Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Windows("extract-Greg").Activate
    
    Range("A1").Value = Range("A1").Value + 1
    Sheets("Sheet1").Copy
    ChDir "C:\Users\user\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\" & Range("C1").Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Windows("extract-Greg").Activate
    
       Range("A1").Value = Range("A1").Value + 1
    Sheets("Sheet1").Copy
    ChDir "C:\Users\user\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\" & Range("C1").Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Windows("extract-Greg").Activate
       Range("A1").Value = Range("A1").Value + 1
    Sheets("Sheet1").Copy
    ChDir "C:\Users\user\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\" & Range("C1").Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Windows("extract-Greg").Activate
    Range("A1").Value = 1
    

End Sub

 

[MarkCBB]

Sub Test()
    Range("A1").Value = 0
    Do
    Range("A1").Value = Range("A1").Value + 1
    Sheets("Sheet1").Copy
    ChDir "C:\Users\user\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\" & Range("C1").Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Windows("extract-Greg").Activate
    Loop Until Range("A1").Value = Range("B1").Value
End Sub