Dim rng As Range
Set rng = Range("A1").Resize(Range("W14").End(xlDown).Row, 26)
ActiveSheet.PageSetup.PrintArea = rng.Address


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

wrote in message
oups.com...
I am having problems developing a macro to find the first empty cell in
the column range w14:w121.

Upon finding the first empty cell in the W column range it should off
set to column Z and do a ctrl-shift-home to select the last selected
cell up to cell A1 and print selection.

I have looked through google but cannot make sense of using ifempty or
using some other method to determine the first empty cell.