You could change the font size to something massive, like 72 point, which
makes the spaces you use cover more space.
Then after the spaces, return the font size to standard 10 point (or
whatever you're using).

"&48" & String(25, " ") & "&10Page"


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"PO" <po wrote in message ...
Hi

I'm extracting invoicedata from a database into a worksheet
I want to leftalign the pagenumber and invoicenumber in the right header
in
pagesetup of the worksheet. Each time the user retrieves the invoicedata I
use the following code to set the right header for the worksheet:

Sub SetHeader
...
with activesheet.pagesetup
.rightheader = "Page" & _
Chr(10) & "&P(&N)" & _
Chr(10) & "Invoicenr" & _
Chr(10) & strInvNr
end with
End sub

If I place the text in the right header, however, the text right aligns.
I've tried to place the text in the left header and use the string
function:

with activesheet.pagesetup
.leftheader = string(165, " ") & "Page" & _
string(165, " ") & Chr(10) & "&P(&N)" & _
string(165, " ") & Chr(10) & "Invoicenr" & _
string(165, " ") & Chr(10) & strInvNr
end with

This doesn't work since you only can place up to 254 characters in one
header.
I use Excel 2000.

Any ideas?

TIA
PO