Getting highlighted address range in VB

I am trying to get the seleceted range of worksheets
cells into VB. I tryed
Worksheets("Sheet1").Activate
MsgBox ActiveCell.Address
but I just get the leftmost upper cell.

This is what I want the macro to do.

I select a range of cells containing certain data.
I Push a button and the macro takes that
range does a set print area and then prints it.

Thanks for all your help in advance
John