Copy only unhidden cells within range

Hi All,

I have a script to copy rows in a range and paste them into a body of an e-mail. This works as a Sub and a Function. The problem I am having is I only want to copy the rows that are visible, not the entire range.

My code looks like this

Set rng = ActiveSheet.Range("C6:W130").SpecialCells(xlCellTypeVisible)

This code actually copies nothing... If I remove the "SpecialCells(xlCellTypeVisible)", it will copy the entire range.

Any advice?


I solved this myself. Mods, please delete if possible.