Change print order of sheets

Hi,

I was looking for some help in changing the order in which the worksheets are printed.

I would like the macro to read the sheet names from a range of cells on one sheet then print them in that order.

The sheets will always stay in the same place but sometime the print order needs to be changed.

I have 6 sheets so far but this may increase.

This is the code I have so far but it only prints / Previews 1 page.

Sub test()
Dim Shname
Dim S1 As Variant
Dim S2 As Variant
Dim S3 As Variant
Dim S4 As Variant
Dim S5 As Variant
Dim S6 As Variant
S1 = Range("M32").Value
S2 = Range("M33").Value
S3 = Range("M34").Value
S4 = Range("M35").Value
S5 = Range("M36").Value
S6 = Range("M37").Value
Shname = Array(S1, S2, S3, S4, S5, S6)
For n = LBound(Shname) To UBound(Shname)
Sheets(Shname(n)).PrintOut
Next
End Sub

Thanks in advance

Soul

Edit:

Never Mind I fixed it thanks