Kør makro fra Access

Hej,

Nedenstående macro, som skal køre en anden makro i Access kan jeg ikke få til at virke.

Hilsen Marten
..........

Sub Worksheet_Activate()

    OpenDatabase Filename:="R:\Ny filstruktur R-drev\06 - Interne projekter\Rapportering\Reporting.mdb"
    Run ([ImpBASE])
    Workbooks("R:\Ny filstruktur R-drev\06 - Interne projekter\Rapportering\Reporting").Close SaveChanges:=True

End Sub