Active cell equals print area, can only print all right now

Hello All,

I am trying to print area where if cells D5:LC5 are active (have text in them) it would print area A1 to ?52, so if I have writing in cell H5 it would print A1 to H52, I have the code for print all but have not had any luck printing active cell only I can only get it to print all area.

Here in my current print code

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Here is the work book

Master File 021113.xlsm


Thanks in Advance, Jeff

Bump, anyone I have done a search and played with the code but have not figured it out.

Jeff