Show and Hide Label

[Tav29]

I have a label on multiple worksheets, I want to hide or show the label if a specific cell is null.

[Bob Phillips]

Dim sh As Worksheet

On Error Resume Next
For Each sh In ActiveWorkbook.Worksheets
sh.OLEObjects("labelname").Visible = sh.Range("C3").Value <> ""
Next sh

[Tav29]

Thank you....