Macro to query column for date if found place text in cell

I am trying to make a macro that will query a column J4 for a date, if the date is found say "Wednesday, July 4, 2012" (J8)
get the text from Column K8 "Independence Day" and insert the text in Cell (H1).

The Macro Prints sign in sheets with the date in H2, it only prints Monday through friday.
then skips the weekend and the next date will start the following Monday.

The Federal Holiday schedule is in column range J (Date) and K (Holiday)

This is where I am stuck ....

EmployeeTimeSheet_2012.xlsm

Please Login or Register  to view this content.

The Print Macro works fine, it's the date and holiday peice I am trying to get

would this be eaiser using a formula in the Cell H1 ???

I tried to use this formula in Cell H1 and it works for one time but not in the Macro loop

Please Login or Register  to view this content.

Please Login or Register  to view this content.