Excel VBA Macro Question

[whyme6181]

HI. I have a macro set up to note on a separate tab if a checkbox item was marked or not so I can use it in a future equation. Here is the code:

Private Sub Checkbox2_Change()
   If CheckBox2.Value = False Then
      Worksheets("Tic Sheet").Activate
      Range("B7") = "NO"
      Worksheets("Impact Analysis").Activate
   Else
      Worksheets("Tic Sheet").Activate
      Range("B7") = "YES"
      Worksheets("Impact Analysis").Activate
   End If
End Sub

The problem is that for whatever reason, the NO or YES will not be entered. The macro works and while in debug it will go through that line of code, but still no text is entered. Please help. Thanks,

Todd

 

[JoeMo]

You need to qualify the sheets like this:

Private Sub Checkbox2_Change()
If CheckBox2.Value = False Then
    With Worksheets("Tic Sheet")
        .Range("B7") = "NO"
    End With
    Worksheets("Impact Analysis").Activate
Else
    With Worksheets("Tic Sheet")
        .Range("B7") = "YES"
    End With
    Worksheets("Impact Analysis").Activate
End If
End Sub

 

[whyme6181]

Thanks. A minute before you responded I figured out a variant. The below works as well

Private Sub Checkbox2_Change()
   If CheckBox2.Value = False Then
      Worksheets("Tic Sheet").Range("B7") = "NO"
   Else
      Worksheets("Tic Sheet").Range("B7") = "YES"      
   End If
End Sub