Coding only crops footer picture in active window

I am using Excel to write up a report in which multiple sheets are selected and then printed. I wrote some visual basic commands to insert a left footer with a date/client code, center footer with a picture, and right footer with a page number. Everything works great with the exception of the command to crop the bottom of the footer, it only crops the footer on the last sheet in the group that you selected (active window). I do not understand why it inserts the picture in all of them, but only crops the active window when both commands are in the same spot. Can you look at this code and tell me what you see that might be causing this issue:

Please Login or Register  to view this content.