Set Paper Size

[ManUBlueJay]

How can I set the papersize in VBA based on the value in a named range.
If the user has chosen US I want the papersize to be letter, else A4.
I have tried the following without success. PrintpaperSize is my named range

ActiveSheet.PageSetup.PaperSize = [PrintPaperSize]

 

[MARK858]

Do you not have any other code?

 

[ManUBlueJay]

I just figured it out that you give it an interger based on what excel uses
xlPaperSizeConstant = [PrintPaperSize]
ActiveSheet.PageSetup.PaperSize = xlPaperSizeConstant

 

[MARK858]

What I was looking for was if you already had an If statement, something like....

Sub MyPaperSize()
    If [PrintPaperSize] = "US" Then
        ActiveSheet.PageSetup.PaperSize = xlPaperLetter
    Else
        ActiveSheet.PageSetup.PaperSize = xlPaperA4
    End If
End Sub

 

[ManUBlueJay]

I didnt have one otherwise I would have done it like you mentioned. In the end if the user chose US it put the interger 1 (Which represents letter) in [PrintPaperSize] otherwise 9 (Which represents a4)