Macro for saving sheet as PDF to desktop and attach to email

Hi guys,
I have never written a macro before, only recorded them. By recording the macro I can only get the sheet to save as PDF not attach to email. What i'm trying to do is: I have a sheet called "Exchange Sheet". I need a macro that will safe this sheet to my desktop as a PDF (with the same name "Exchange sheet") then attach it to an outlook email. I would then just manually enter email address and email text.

Any help would be greatly appreciated.

.
This works on a PC .. not certain about a Mac :

Option Explicit


Sub test()
Dim TempWB As Workbook
Dim fd As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Copy
Set TempWB = ActiveWorkbook

fd = "C:\Users\My\Desktop"   'Edit path as required. Assumes the folder Test already exists on the desktop
'fd now holds the path to the folder
  
With TempWB
'Exchange Sheet is the name of the saved CSV file. Edit name as required.
    .SaveAs Filename:=fd & "\Exchange_Sheet", FileFormat:=xlCSVWindows, CreateBackup:=False
    .Close
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Email_Sheet

End Sub

Sub Email_Sheet()

   Dim oApp As Object
   Dim oMail As Object
   Dim CSVSheet As String

   'Turn off screen updating
   Application.ScreenUpdating = False

   'Copy the active worksheet and save to a temporary workbook
   'ActiveSheet.Copy
   CSVSheet = "C:\Users\My\Desktop\Exchange_Sheet.csv"

   'Create a temporary file in your current directory that uses the name
   ' of the sheet as the filename
   'LFileName = LWorkbook.Worksheets(1).Name
   On Error Resume Next
   'Delete the file if it already exists
   'Kill LFileName
   On Error GoTo 0
   'Save temporary file
   'LWorkbook.SaveAs Filename:=LFileName

   'Create an Outlook object and new mail message
   Set oApp = CreateObject("Outlook.Application")
   Set oMail = oApp.CreateItem(0)

   'Set mail attributes (uncomment lines to enter attributes)
   ' In this example, only the attachment is being added to the mail message
   With oMail
      .To = ""
      .Subject = ""
      .body = ""
      .Attachments.Add CSVSheet
      .Display
   End With

   'Turn back on screen updating
   Application.ScreenUpdating = True
   Set oMail = Nothing
   Set oApp = Nothing

End Sub

Logit,
thanks for your reply. Its for a PC in my work (just got the Mac at home). I will give it a go in the morning when back to work. Thanks again