Excel to outlook email body - Setting the range

[Anand307]

Hi Please help in setting the range, I have attached the workbook for your reference.

1. The range always needs to be set on the active sheet. I used the range as Set rng = Sheets("Activesheet").Range("A1:O68").SpecialCells(xlCellTypeVisible) but it is not working.
Please help.
Range should be capturing data from cell A1 to cell O68

 

[Ashhu]

Dear Anand,
Attachment missing.

 

[Anand307]

Attached, you are able to see attachment now?

 

[Chihiro]

Change range to something like...

rng = ActiveSheet.Range("A1:O68").SpecialCells(xlCellTypeVisible)

 

[Anand307]

Cool, thanks it worked fine now. Happy friday all