My company wants additonal things which I have added. The 1st thing they want is to email selected ranges, not when work book opens but every week or so. The code I am presently using to email when sheet is open is below.
' Select range of cells on the active worksheet
ActiveSheet.Range("G2:G1000 ").Select

' Show the envelope on the Activeworkbook.


ActiveWorkbook.EnvelopeVisible = True

'Set the optional introduction field thats adds
' add header to email body. It also sets
' the to and Suject line. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Inventory"
.Item.To = "bill_runyan@onesolutionlogistics.com"
.Item.Cc = ""
.Item.Subject = "Please Order"
End With

I will attach the newest spreadsheet, it has changed a little bit from the original. Thanks for the help I have received so far

Attached Files

CAGE INVENTORY LIST 2-6-2015#3.xlsm (139.5 KB, 11 views)