Page set up => header/footer => custom footer => repeat for all pages and sheets

Hi Ger,

You could try something like this:

Option Explicit

Sub SetFooter()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets

ws.Activate

With ActiveSheet.PageSetup

' your code here

End With

Next ws

Application.ScreenUpdating = True

End Sub

Alf