Footer formula

[rjplante]

I have a sheet that dynamically fills in as a number is entered into a cell. If 240 is entered I get four pages. Page 1 and 2 go together and pages 3 and 4 go together. In this case the footer reads "Page 1 of 4"... etc. If 120 or less is entered I have two pages of complete data, pages 1 and 3 are complete and 2 and 4 remain blank. My footer still reads "Page 1 of 4"..., but I only have two pages of information. Is it possible to place a formula in the footer to account for the change in value? In other words to force Y (Page X of Y) to be either 2 or 4 as appropriate.

For example: If(Z1<=120, 2, 4)

This would use 2 as the total number of pages if the value in Z1 was 120 or less and 4 as the total number of pages otherwise.

I just don't know how to incorporate this formula into the footer text of

'Page &[Page]& of &[Pages]'

Any help on how to do this would be great.

Thanks,

Robert

 

[rjplante]

I've tried the following and get a RunTime Error 13 type mismatch with the error on the blue text. Don't know what to do.

Sub Print_Initiation_Page()

If Range("AE1").Value > 120 Then
    With Worksheets("Inspection Sheet Initiation").PageSetup
        .CenterFooter = "Page " & [Page] & " of 4"
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    Else
    With Worksheets("Inspection Sheet Initiation").PageSetup
        .CenterFooter = "Page " & [Page] & " of 2"
    End With
        Sheets("Inspection Sheet Initiation").PrintOut From:=1, To:=1
        Sheets("Inspection Sheet Initiation").PrintOut From:=3, To:=3
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End If

End Sub