I need help limiting my macro to only a specific workbook

[weiser386]

I have created an excel spreadsheet that updates with production data every 3 seconds and part of the macro changes the format of the file to be full screen because it is displayed on a giant TV monitor in our production office...my issue is that once this file is opened on a computer if you have another excel file open it makes them full screen and attempts to update every 3 seconds. How do i make this macro only run on my desired workbook?


here is my code:

This code is located in "thisworkbook"

Private Sub Workbook_Open()

Call MyMacro

End Sub


This code is located in "module 1"

Private dTime As Date
Sub MyMacro()
dTime = Now + TimeValue("00:0:03")
Application.OnTime dTime, "MyMacro"

Calculate


Application.DisplayFullScreen = True
End Sub

 

[mjbeam]

Try:

If ActiveWorkbook.Name = ThisWorkbook.Name Then Application.DisplayFullScreen = True

 

[weiser386]

Great I will try this tomorrow and it looks like it should work for my full screen issue but is there a way I can apply that to the auto update ever 3 seconds feature too?

Thanks in advance!!!!!!!

 

[mjbeam]

Private dTime As Date

Sub MyMacro()

  dTime = Now + TimeValue("00:00:03")
  Application.OnTime dTime, "MyMacro"

  If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub 

  Calculate

  Application.DisplayFullScreen = True

End Sub

 

[weiser386]

Awesome I will give this a try tomorrow, thank you!!