OnErrorGoto0
I took your advice and tried to use that exactly.
Are you able to see what is wrong with this because I am still getting Run-Time Erro '91' Object variable or With block variable not set....
Private Sub HideRowsWithinProgramming_DesignPhase()
Application.ScreenUpdating = False
Dim DesignPhaseReview_Rows As Range
Set DesignPhaseReview_Rows = Sheet5.Range("C:C").Find("Design Review", , xlValues, xlWhole, xlByRows, , True).Resize(3, 1)
If Sheet2.OLEObjects("CheckBox3").Object.Value = False And _
Sheet2.OLEObjects("CheckBox4").Object.Value = False And _
Sheet2.OLEObjects("CheckBox5").Object.Value = False Then
DesignPhaseReview_Rows.EntireRow.Hidden = True
Else
DesignPhaseReview_Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
Bookmarks