Sub Print_Individual_Pages_James()
Dim iHpBreaks As Integer, iVBreaks As Integer
Dim iTotPages As Integer, a As Long, j As Long
iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
iVBreaks = ActiveSheet.VPageBreaks.Count + 1
iTotPages = iHpBreaks * iVBreaks
j = 1
For a = 1 To iTotPages
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp PDFs\This is Sheet" & j & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=a, To:=a, OpenAfterPublish:=False
j = j + 1
Next
End Sub