Elimina il pulsante SPEGNI, rinomina il pulsante ACCENDI in ACCENDI/SPEGNI e usa queste macro modificate:
Option Explicit
Sub ACCENDI()
'
' ACCENDI Macro
'
Range("C4:C23").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.onAction = "SPEGNI"
Range("A1").Select
End Sub
Sub SPEGNI()
'
' SPEGNI Macro
'
Range("C4:C23").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.onAction = "ACCENDI"
Range("A1").Select
End Sub
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)