Using VB to Convert Single Worksheet to PDF then Email?

[golf4wff]

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?

Code:

If Sheets("Data_Entry_Sheet").[k107] > "" Then
Sheets("FSS_Worksheet").Unprotect ("led52not")
Sheet20.Select
ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="(e-mail address removed)", Subject:=" FSS
Escrow Sheet"
ActiveWorkbook.Close False

ActiveSheet.Shapes("object 6.wav").Select 'fss reminder msg'
Selection.Verb Verb:=xlPrimary

MyTimer = Timer
Do
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!!!")
Sheets("FSS_Worksheet").Protect ("led52not")
Sheet2.Select
[a1].Select
Sheets("data_entry_sheet").Protect ("led52not")


Thanks to everyone for the help.

Take care.

Golf

 

[golf4wff]

Just wanted to see if I could bump this one up a little...... Thanks