The following code will return the number constants of paper sizes available. I want to determine the names, xlA4, xlLegal etc. Any ideas?
[VBA]
Sub PaperSizes()
Do
i = i + 1
On Error Resume Next
ActiveSheet.PageSetUp.PaperSize = i
Debug.Print ActiveSheet.PageSetUp.PaperSize
Loop
End Sub
[/VBA]