宏在基于特定单元格"value"的多工作表工作簿上自动运行

Question

关于使用VBA代码根据单元格的"值"自动运行宏的讨论很多。我需要帮助的是编写代码，以自动启动基于单元格A1(表2)的"值"的宏(开/关)。表1有一个活动X按钮，链接到表1上的单元格，然后表2使用=Sheet1(cell)公式，然后我使用=if公式将真/假更改为开/关。(表2)当单元格"A1"在开和关之间变化时，我希望宏启动。

Sub H1TL0()
'
' 
H1TL0 Macro
'
'

Sheets("LASER LOG").Select
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets(" LASER WORKSHEET").Select
Range("G78").Select
Selection.Copy
Sheets("LASER LOG").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Sheets(" LASER WORKSHEET").Select
Range("G80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LASER LOG").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Sheets(" LASER WORKSHEET").Select
Range("G83").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LASER LOG").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
Range("F14").Select
Sheets(" LASER WORKSHEET").Select
End Sub

我已经运行了宏H1TL0，它工作得很好。

注:我是全新的VBA(如在3天新的)，所以请忍受我的无知。

Answer 1

 'Place below sub in [ThisWorkbook] code pane  
 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     If StrComp(ActiveSheet.Name, "Dashboard") = 0 Then
       If ActiveSheet.Cells(1, 1).Value = "Cell Value" Then
       'Put Condition here. if there are multiple then add elsif
        End If
     End If
    End Sub