Public Sub run_Server_Macro()
Dim servDB_path_name
Dim servAPP As Access.Application
servDB_Path_Name = "\\path\server_db_name.mdb"
Set servAPP = GetObject(servDB_Path_Name, "ACCESS.Application")
servAPP.DoCmd.RunMacro "name_of_server_macro"
servAPP.Quit
Set servAPP = Nothing
End Sub