Search Value In Column However To Refresh Pivot Table

Basically my search value is in B4 however to refresh pivot table
this is fine when I enter plain text within B4

I have trouble with an vba code using pivot tables

Private Sub Worksheet_Change(ByVal Target As Range)
'set handler for unexpected issues
On Error GoTo Fatality
'exit unless cell altered is that pertaining to the PT Page Field
If Target.Address(0, 0) "B4" Then Exit Sub
'validate selection
Select Case IsError(Application.Match(Target.Value, Sheets("DATA").Columns(2), 0))
Case True
'invalid selection
MsgBox Target.Value & " Invalid Store Number - PT Not Refreshed & Selection Reset", vbCritical, "Error"
Application.EnableEvents = False
Application.Undo...................................