Code clean up

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)