Unhide specific cells in a range

[imageicb]

Hello,

I have a range of cells that i named "hide" that are on a protected worksheet. All of these cells have formulas that I dont want to show up. I would like for the cells to become unhidden once a value is placed into them so that if a user has to go back and change something in that cell it will not erase what they type when they type it. Is there a way to accomplish this. Any help would be greatly appreciated. So far i have gotten this to run but it doesnt do anything.

Private Sub Worksheet_Change(ByVal Target As Range)()
Dim cell As Range
If Not Target.Range = "hide" Then Exit Sub

With ActiveSheet
        .Unprotect ("apple")

For Each cell In Range("hide")

cell.EntireRow.Hidden = False
Next cell
    .Protect ("apple"), DrawingObjects:=False, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
                
                            
    End With
End Sub

Thank You

 

[VoG]

Try

If Intersect(Target, Range("hide")) Is Nothing Then Exit Sub