Help with Print pdf copies of the worksheets

Sub Macro1()

Dim ws as Worksheet

For each ws in Worksheets
  ws.Activate
  Rows("2:2").EntireRow.AutoFit

  With Rows(2)
      .RowHeight = .RowHeight + 2
  End With
Next

Sheets(1).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & Sheets(1).Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

For i = 3 To Sheets.Count Step 2

Sheets(Array(Sheets(i - 1).Name, Sheets(i).Name)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & Sheets(i).Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        
        
Next

End Sub