Macro to find empty cell and select range to print selected.
 

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.

Macro to find empty cell and select range to print selected.
 

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.