Multi Page, Excel 2010

Bruger flg. kode, som er beregnet på 1 side (multipage), men jeg har nu udvidet den til 6 sider, så jeg vil gerne have makroen lavet til dette.

Private Sub xHvemLog()
Const hovedSti = "C:\SkabelonerRDDokumenter\Breve"
Dim knapCaption As String

    knapCaption = Me.MultiPage1.Pages(Me.MultiPage1.Value).ActiveControl.Caption    'filnavn

   
    ChangeFileOpenDirectory hovedSti

        Documents.Open FileName:=knapCaption & ".dotm", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
       
        Unload Me

End Sub