Aktivere makro i andre regneark

En række regneark beliggende i samme filstruktur indeholder hver især een og samme makro, som princippielt udfører det samme :

1. Prompter brugeren for en rapporteringsperiode ( InputBox )
2. Indsætter denne som sidehoved i regnearket
3. Importerer data fra en ekstern datakilde
4. Opdaterer en række pivottabeller 

Problemet er, at der i alt er 30 regneark hvori dette skal foretages, og jeg ville genne kunne gøre dette uden at skulle åbne samtlige 30 regneark og aktiverer denne makro.

Jeg har i første omgang forsøgt med

Application.Run ("Projektmappenavn.xls!Makronavn")

men får fejlkode 400 !!!





Public Sub Refresh()

Dim InputBox1 As String

    Application.ScreenUpdating = False
   
    InputBox1 = InputBox("Updated ultimo date : ")

    Sheets("SEA011E").Select

    Range("A1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False

    Columns("X:X").Select
        Selection.ClearContents
   
    Range("X1").Value = "FULLNAME"
   
    Range("W2", Range("W2").End(xlDown)).Offset(0, 1).FormulaR1C1 = "=IF(RC[-10]="""",IF(RC[-9]="""",""__noname__"",RC[-9]),RC[-10]&"" ""&RC[-9])"
   
    Sheets("AGENT LIST").Select
        Range("A2").Select
            ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
   
    Sheets("AGENT DETAILS").Select
        Range("A2").Select
            ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
   
    Sheets("AREA LIST").Select
        Range("A2").Select
            ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
   
    Sheets("CATALOUGE OVERVIEW").Select
        Range("A2").Select
            ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
   
    Range("C5").Value = "As per " & InputBox1

    Application.ScreenUpdating = True

    MsgBox "Update Ended"

End Sub