The Daily WTF

[hatman]

http://thedailywtf.com/Articles/Learning-Something-New.aspx

 

[MrKowz]

Poor structure... bad logic... must... resist... urge...to fix..........................AHHHHHHHHHHHHHHHHHHHHHH!

Sub dwb_eng()
   ActiveSheet.Unprotect
   Dim i As Long
   Let i = Range("a!Q7").Value
   If i = 1 Then
      ActiveSheet.Shapes("Option Button 22").Visible = True
   Else
      ActiveSheet.Shapes("Option Button 22").Visible = False
   End If
   ActiveSheet.Protect
End Sub

 

[RoryA]

Sub dwb_eng()
   With ActiveSheet
      .Unprotect
      .Shapes("Option Button 22").Visible = (Range("a!Q7").Value = 1)
      .Protect
   End With
End Sub

 

[MrKowz]

Sub dwb_eng()
   With ActiveSheet
      .Unprotect
      .Shapes("Option Button 22").Visible = (Range("a!Q7").Value = 1)
      .Protect
   End With
End Sub

Again, with the better code! *shakes fist*

 

[Michael M]

Grrrr !!!
I was with MrKowz, neat and tidy.........and then Rorya...
Geez, I wish I could do that, 'specially that quick !!!!!!!

 

[RoryA]

Not better, just shorter. Not the same thing at all!