VBA code that saves multiple excel files derived from table

[coen078]

I want to write a macro that changes the value in A10 worksheet "blad1" with the values in the table P&ID in worksheet "blad 2" every time the value is changed it needs to save that excel file with that specific value and the file name needs to be the same as that value. So let's say i have 21 different blueprint numbers ranging from P&ID 100 until 120.
I want to create 21 different excel files with the file names "P&ID 100", "P&ID 101", "P&ID 102" etc...

I hope to save a lot of time with this macro instead of manually changing the number tens or hundreds of times and saving as a different file.

Sub SaveAsCell()
Dim strName As String


strName = Sheet1.Range("A10")
ActiveWorkbook.SaveAs strName
Exit Sub

End Sub

I have this as a starting point but i want to speed it up and have it do the whole table from a different worksheet.

 

[vw412]

I modified your cod a bit. Not sure if I helped but try this:

Sub VoorbladenMaken()

  Dim strName As String
  Dim i As Integer
  i = 1
  
  Do While Sheets("Sheet2").Cells(1 + i, 1).Value <> ""
  
    Sheets("Sheet2").Cells(i + 1, 1).Copy Sheets("Sheet1").Range("A10")
    i = i + 1
    
    Worksheets("Sheet2").Visible = False
    
    strName = Sheets("Sheet1").Range("A10")
    ActiveWorkbook.SaveAs strName
    
    Worksheets("Sheet2").Visible = True
  
  Loop


End Sub