Working fine the way it is. Thanks
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
|