G Guest Oct 4, 2007 #2 I got it... On Error Resume Next For Each sh In ActiveWorkbook.Worksheets sh.OLEObjects("label1").Visible = sh.Range("D3").Value <> "" Next sh
I got it... On Error Resume Next For Each sh In ActiveWorkbook.Worksheets sh.OLEObjects("label1").Visible = sh.Range("D3").Value <> "" Next sh