Sub Main Dim strDashboardFile, strMacroDir, strDashDir As String

strDashboardFile= "dailyactions.mmap"

strMacroDir = "C:\Program Files\Gyronix\ResultManager"

strDashDir = "C:\Documents and Settings\[account name]\My Documents\My Maps\Dashboards\"

Documents(True).Open strDashDir & strDashboardFile

Call MacroRun(strMacroDir & "\ResultManager-X5.MMBas", "/Dashboard")

End Sub