Macro To Print From List

[Scoop480]

I am trying to create a macro to print worksheets from a list. For example, on my worksheet "3Print" I have a list of the tabs that I would like to print in cells G60:G130. I have 6 other lists that I need to create seperate Macros for, but if I can get help with just one, I'm sure I can change the info to print the other lists. I ran a Macro to get the list from my current tabs, so I know the naming is correct. I'm relatively new to Macros, so any help is much appreciated! Thank you!

 

[Luke M]

Something like this should help get you started:

[pre]

Sub PrintSheets()
Dim sName As String
Dim ListRange As Range

'Where is the list of names?
Set ListRange = Worksheets("3Print").Range("G60:G130")

'Alternatively, if you just want to select the range of name
'before you run the macro, you could use the following
'Set ListRange = Selection

For Each c In ListRange
sName = c
ThisWorkbook.Worksheets(sName).PrintOut
Next

End Sub

[/pre]

 

[Scoop480]

Thanks Luke! Worked perfectly!

 

[Luke M]

Sweet, glad I could help.