Code clean up

**zplugger** · 09-07-2012, 02:33 PM

There must be a cleaner way to right this code, it works but I know it's not right.

ActiveSheet.OLEObjects("Label1").Visible = (Range("F5") <> Text)
  ActiveSheet.OLEObjects("Label2").Visible = (Range("F5") <> Text)
 ActiveSheet.OLEObjects("Label3").Visible = (Range("F5") <> Text)

**protonLeah** · 09-07-2012, 03:21 PM

My advice: Leave it alone.

**Leith Ross** · 09-07-2012, 04:20 PM

Hello zplugger,

Here is an example that applies to all labels on the ActiveSheet.

    Dim Obj As Object
    
        For Each Obj In ActiveSheet.OLEObjects
            If Obj.Name Like "Label*" Then Obj.Visible = (Range("F5") <> "text")
        Next Obj

**zplugger** · 09-07-2012, 06:59 PM

I must be doing something wrong Leith, can't get the code to work

Z

**Leith Ross** · 09-07-2012, 07:17 PM

Hello Z,

The code needs to be in a standard VBA module. The macro now checks "Sheet1" for the Labels and cell F5 is not empty. Change "Sheet1" to the name of your worksheet that has the labels.

Sub HideOrShowLabels()

    Dim Obj As Object

        For Each Obj In Worksheets("Sheet1").OLEObjects
            If Obj.Name Like "Label*" Then Obj.Visible = (Range("F5") <> "")
        Next Obj

End Sub