Auto Save Shared Workbook and Update Display

The hardest part is determining the run time. One option would be to use an if statement at the begining of your code.

If ActiveWorkbook.Name <> "yourworkbookname.xlsm" Then 
Exit Sub
End If