Sub Macro1()
c = Application.WorksheetFunction.CountIf(Range("J:J"), "TRUE")
If c >= 1 Then
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "Macro2"
Selection.Font.ColorIndex = 0
Else
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = ""
Selection.Font.ColorIndex = 15
End If
Range("a1").Activate
End Sub