Hi, everyone -
I know it's been a long time, but I thought I'd jump back in with a doozie that I've been
struggling with. I 've included a small bit of code below that is a small part of a much larger strip. Basically, what I use
this bit for is to send a copy of one worksheet, out of a much larger income calculation spreadsheet, to a staff person.
It works really slick, but I have one problem: when the staff person gets the email and opens the copies single
worksheet, it gives a couple messages about wanting to update the formulas in the worksheet itself. I'm thinking, to
eliminate these messages, I'm hoping there is a way to modify my code that that, maybe, after ActiveSheet.Copy, I can convert
the worksheet to a pdf... then finish out the code. Has anyone had any success in doing this before?
If Sheets("Data_Entry_Sheet").[k107] > "" Then
ActiveWorkbook.SendMail Recipients:="email@example.com", Subject:=" FSS Escrow Sheet"
ActiveSheet.Shapes("object 6.wav").Select 'fss reminder msg'
MyTimer = Timer
Loop While Timer - MyTimer < 4
paperwarning = MsgBox("I HAVE HEARD THE REMINDER MESSAGE AND PROMISE, UPON PENALTY OF SOMETHING REALLY BAD HAPPENING,
THAT I WILL PASS ON ACCOUNTING'S COPY OF THE FSS WORKSHEET TO THE APPROPRIATE STAFF PERSON.", vbOKOnly, "REMEMBER TO
PROPERTLY DISTRIBUTE COPIES OF FSS WORKSHEETS!!!")
If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
Thanks to everyone for the help.