Claus,

Not much help here, just some comments/questions...
The John Green code (as is) works for me in xl2002.
The xl4 code is very sensitive and all of the quote marks are required.
Are you using Option Explicit and does your code compile?
Arguments for margins are always in inches, regardless of your country setting.

Regards,
Jim Cone
San Francisco, USA


"Claus" wrote in message
...
Hi
I'm getting an error (See JPG) when i try to use the Sub by John Green
locatet on this site:
http://groups.google.com/group/micro...c725d0d5a6b3d0
I've copy/pasted it in my module without changing anything.
The error is in the last line: Application.ExecuteExcel4Macro pSetUp
I call the PS4 Sub from the site above from within the same Module using
this code:
For Each ws In Worksheets
If Left(ws.Name, 1) = "E" Then
ws.Select
PS4
End If
Next
I use XL2002, SP3
I've got it working with the ordinary pagesetup, but it is painfully slow.
Hoping for some guidance
Regards,
Claus