Why is my code now working?

[MariPip]

So I have come up with this really simple code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.Range("I") Then
If Sheet("CAPA").Cells("G9").Value = "" Then
Target.Hidden = True
Else
Target.Hidden = False
End If
End If
End Sub

And It is not working, can anyone help me fix it????

 

[jim may]

Target.Address requires a string, a cell reference such as "$A$1"

so

If Target.Address = "$A$1" Then

 

[MariPip]

But if I want to hide an entire column wouldn't that hide only cell "A1"??

Target.Address requires a string, a cell reference such as "$A$1"

so

If Target.Address = "$A$1" Then

 

[Br0ck]

If you are just wanting to hide Column I if cell G9 is empty, you can use...

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("I").Hidden = Range("G9").Value = ""
End Sub

 

[MariPip]

I'm writing this code on the Worksheet that contains G9, and I wish to hide row I from another worksheet called RESUMO... What changes should I make to the code?

If you are just wanting to hide Column I if cell G9 is empty, you can use...

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns("I").Hidden = Range("G9").Value = ""
End Sub

 

[Br0ck]

Try...

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("RESUMO").Columns("I").Hidden = Range("G9").Value = ""
End Sub

 

[MariPip]

Thank you SO VERY MUCH!!

Try...

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("RESUMO").Columns("I").Hidden = Range("G9").Value = ""
End Sub