Macro to Print to PDF and attach to email

Hi,

I need help please. I have inherited a spreadsheet to calculate commissions and print statements to PDF, attaching the statements to an email in drafts. Having made a lot of changes to the excel model, predictably the macro no longer works. I am trying to understand the macro so I can find out where it is falling down. When I run the macro I get no error message. As far as I can tell it works up to the Loop.

The first bit I don't understand is this bit - If Cells(rCell.Row, Range("rngHeaderEnabled").Column).Value = "yes" Then

I assume it's using cells function to reference a specific cell using the column of the named range which is fine, this is column KR but I don't understand how it's working out the correct row to start on?

Thanks in advance, apologies if I've made any forum faux pas, first time posting and I have very limited VBA experience!


Full Macro below

Please Login or Register  to view this content.

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

The line of code you mentioned is in a loop that goes through every cell in rRoster. Each time through a loop rCell is set to the next cell in the range rRoster. rCell.Row gives the row that cell is in. So for every cell in the roster, it checks to see if column KR is "yes" on the same row.

However, there is nothing we can to explain why the code no longer works without seeing your file. See the yellow banner at the top of the page.

Please Login or Register  to view this content.