Use QR code to goto a cell is the possibly?

I'm trying to see if I can use QR codes to goto a cell and make it active

Example:

I scan the QR number string into Cell A1  "123456"

that then fines that number "123456" in E3:E300 and makes the cell two cell over acting so if 123456 is found in Cell E100 them make cell H100 active.

Instead of using Ctrl F to search for the number I would just scan a QR code and find the Cell 

only looking for numbers in row E that will all be unique to that cell.

I started with some VBcode to test this out but its not working not sure what I'm doing.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.ShowAllData
ActiveSheet.Range("$E$3:$E$100").AutoFilter Field:=5, Criteria1:="=" & Range("A1"), Operator:=xlAnd
End If
End Sub

Any suggestion should be simple as in just doing a match for what value is in A1  and goes the that call.