The code for Q2 can be simplified to...

Private Sub Worksheet_Calculate()
Const TargetValue As Single = 100
Me.Shapes("Sad").Visible = Range("A1").Value < TargetValue
Me.Shapes("Happy").Visible = Not Me.Shapes("Sad").Visible
End Sub

Ken Johnson