Hi,
I'm trying to put together an email macro that will select only the cells displayed (not hidden cells) or filtered cells. The email function works fine along with the filtered, it just sends all of the hidden cells as well.
Can anyone assist?
Below is a copy of the Macro Transcript:
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Hi, The following list identifies the corrective actions assigned to you."
.Item.To = "[email protected]"
.Item.Subject = "Corrective Action Register Action Items"
.Item.Send
End With
End Sub
Would greatly appreciate the assistance!!
Bookmarks