title: Save worksheet as PDF on Mac
body: <p>I am working on a macro to save the active sheet as a PDF file with a special name.<br>
  The macro I created runs but saves every sheet in several PDF and puts the name of the sheet at the end of the file name.</p>
  
  <pre><code>Sub PrintPDF() 
      Dim wksSheet As Worksheet 
      Dim strFile As String 
  
      Set wksSheet = ActiveSheet 
      'strFile = Format(Now(), "yyyymm") _
                  &amp; ".pdf" 
  
      strFile = "blabla" _ 
                  &amp; "_" _ 
                  &amp; Format(Now(), "yyyymm") _ 
                  &amp; "_" _ 
                  &amp; "name2" _ 
                  &amp; " " _ 
                  &amp; Replace(Replace(wksSheet.Cells(1, 2).Value, " ", ""), ".", "_") _ 
                  &amp; ".pdf" 
  
      strFile = ThisWorkbook.Path &amp; ":" &amp; strFile 
  
      wksSheet.SaveAs Filename:=strFile, FileFormat:=xlPDF 
  End Sub 
  </code></pre>