Hi Forum,
How can I simplify the task of inserting a range a cell values, and after each value insertion run another macro, such as save/print to PDF.
Ideally I'd like to have the macro use a range "A5:A10", rather than manually entering each cell reference (ex. A5, A6, A7, A8, A9, A10), to make it easier to update.
There may be a solution using dimensions such as:
Dim c As Range
For Each c In Range("A5:A10")
but I don't know how to structure the rest of the code.
Code I'm currently using:
Code
Sheet1.Range("B11").Value = Sheet6.Range("A5")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Sheet1.Range("B11").Value = Sheet6.Range("A6")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Sheet1.Range("B11").Value = Sheet6.Range("A7")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Sheet1.Range("B11").Value = Sheet6.Range("A8")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Sheet1.Range("B11").Value = Sheet6.Range("A9")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Sheet1.Range("B11").Value = Sheet6.Range("A10")
Call ThisWorkbook.Run_SaveToPDF_Unit_1
Display More