show all data in filtered data if value cell is empty

[abdelfattah]

i have this code by filtered data based on cell a5 i try show all data if cell a5="" but it gives me error how can i fixed

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 1 Then
If Target.Address = Range("a5").Address = "" Then
sheet1.ShowAllData
    sheet1.Cells.AutoFilter Field:=5, Criteria1:=sheet1.Range("a5").Value
End If
End If
End Sub

thanks

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 1 Then
   If Target.Value = "" Then
      Sheet1.ShowAllData
   Else
       Sheet1.Cells.AutoFilter Field:=5, Criteria1:=Target.Value
   End If
End If
End Sub

 

[abdelfattah]

many thanks Fluff it works

 

[Fluff]

You're welcome & thanks for the feedback.