Hi,

I have the following code to activate when a cell is change on a particular sheet but it is resulting in a Run Time Error 13 Type Mismatch and when i hit Debug is just highlights the 
If Target= Range("$F$1") Then
line

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("$F$1") Then

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Sheets("Store Info").Select
    Selection.ListObject.QueryTable.refresh BackgroundQuery:=False
    
    Sheets("Store Info").Range("A2", Selection.End(xlDown)).Copy
    
    Sheets("Store Selection").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End If

End Sub
It actually does what i want and pastes the data in to the Store Selection Cell C3 but then goes no further and debugs

Any help much appreciated

Simon