Print pages depending on range

Does this work?

Sub prt_range()

Dim myRange As Range

Sheets("SHEET1").Select
 Columns("D:G").Hidden = True
 Columns("I:I").Hidden = True
 Set myRange = Range("A1:U" & Range("AD2"))
ActiveSheet.PageSetup.PrintArea = myRange
ActiveWindow.SelectedSheets.PrintOut Copies:=1
 Columns("D:I").Hidden = False
Sheets("MAINSHEET").Select

End Sub

Alf