スキルアップ・問題解決なら、モーグにおまかせ！

印刷時、フッターにブック名と「シート位置/総シート数」というページ番号を入れるサンプルマクロを紹介します。
ブックに3つシートがあれば、1シートめには「ブック名　1/3」、2シートめには「ブック名　2/3」と入るわけです。
サンプルは印刷プレビューで表示します。
標準モジュールに次のマクロを作成してください。

Sub Sample()
    Dim myWSCnt As Integer
    Dim n       As Integer
    
    myWSCnt = ActiveWorkbook.Worksheets.Count              '(1)
    
    For n = 1 To myWSCnt
    
        With Worksheets(n).PageSetup
            .CenterFooter = _
               "&F (" & n & "/" & myWSCnt & "ページ)"      '(2)
            .FirstPageNumber = 1
        End With
    Next n

    ActiveWorkbook.PrintPreview
    
End Sub

For...Nextステートメントで全シートに対して、ブック名を表す「&F」と「シート位置/総シート数（(1)で取得している）」と文字列を組み合わせた
内容をフッターに設定しています。
(2)のCenterFooterプロパティを使うと、中央に配置するフッターを設定することができます。
シート内でページ番号を表示する場合は「.CenterFooter = "&F  page: &P"」とすれば、シート内の改ページごとに「ブック名　Page:1」「ブック名　Page:2」・・・
と表示されます。
「&F」「&P」は、“書式コード”と呼ばれるものです。その他の書式コードに関しては、ヘルプの『ヘッダーとフッターに指定できる書式コード』を参照してください。