N = Worksheets("Sheet1").Range("MyPages").Value
ActiveSheet.PageSetup.RightHeader = _
"&""Arial Narrow,Regular""&8Page &P of " & N

--
Regards,
Tom Ogilvy



"Rookie 1st class" <Rookie1stClass@SpamThis wrote in message
...
I added this to Sheet1(Cover)
Range(A1) =SUM(1,'TUS 1'!A1,'TUS 2'!A1,'TUS 3'!A1,'TUS 4'!A1) ' Format
Custom ;;;
I named Sheet1,Range(A1) "MyPages"

Sheet2(TUS 1) through Sheet5(TUS4) Adjusts Range(A1) from 0 through 6 on
each Sheet depending on number of thermocouples and duration of test .'
Format Custom ;;;

I've added this code to each sheet
ActiveSheet.PageSetup.RightHeader = "&""Arial Narrow,Regular""&8Page &P of
&N" 'Page portion has always been correct.

I need your help to change "&N" (Pages) in the header formula to
"&MyPages"
' "MyPages" does not input numerical value of Sheet1,Range(A1).

If I need Const, Dim, or other code I need to know where to put it (Module
or This Workbook) and how it must read. You have MOST helpful and I really
appreciate your help. I think this corrects the last hiccup in this
template.

If you have suggestions to simplify the templates PLEASE clue me in.
THANKS
A TON Lou.