印刷時、フッターにブック名と「シート位置/総シート数」というページ番号を入れる
サンプルマクロを紹介します。

　ブックに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」は、“書式コード”と呼ばれるものです。その他の書式コードに
関しては、ヘルプの『ヘッダーとフッターに指定できる書式コード』
を参照してください。