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