Do not understand what's wrong. Everything was fine until I added a Boolean argument in my private Sub

Dim str As String
str = Target.Address(False, False)
If Target.Value <> "" Then UnhideRows(str, False)
if Target.Value = "" Then UnhideRows(str, True)

Any help is appreciated
Thanks