Extract range has missing or invalid field name.

[KrisK551]

Any idea on how to fix this error. When updating my master page across the sheets I get the error saying:
Run-time error '1004':
The extract range has a missing or invalid field name.

( the red text below is the one highlighted as the issue)

Sub FilterRefresh()
'
' FilterRefresh Macro
'


Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store1"), CopyToRange:=Range("'1803'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store2"), CopyToRange:=Range("'1808'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store3"), CopyToRange:=Range("'1810'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store4"), CopyToRange:=Range("'4714'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store5"), CopyToRange:=Range("'4719'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store6"), CopyToRange:=Range("'4732'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store7"), CopyToRange:=Range("'4735'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store8"), CopyToRange:=Range("'4743'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store9"), CopyToRange:=Range("'4748'!Extract"), Unique:=False

Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Store10"), CopyToRange:=Range("'8966'!Extract"), Unique:=False

End Sub

 

[rlv01]

From the message, I'm guessing that one of the ranges you are trying to use is not valid. Try to see which one.

Sub FilterRangeTest()

    Dim R As Range

    On Error Resume Next
    Set R = Range("Master")

    If R Is Nothing Then
        MsgBox "Range 'Master' is not a valid range", vbOKOnly Or vbCritical, Application.Name
    Else
        Set R = Nothing
    End If

    Set R = Range("Store1")

    If R Is Nothing Then
        MsgBox "Range 'Store1' is not a valid range", vbOKOnly Or vbCritical, Application.Name
    Else
        Set R = Nothing
    End If

    Set R = Range("'1803'!Extract")

    If R Is Nothing Then
        MsgBox "Range '1803'!Extract is not a valid range", vbOKOnly Or vbCritical, Application.Name
        Exit Sub
    End If
    On Error GoTo 0

    Range("MASTER").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Store1"), CopyToRange:=Range("'1803'!Extract"), Unique:=False
End Sub

 

[KrisK551]

hmmm it says
Range'1803'!Extract is not a valid range

 

[rlv01]

That's the one I would have guessed

 

[KrisK551]

now i don't know how to fix it.

 

[rlv01]

Where is Range("'1808'!Extract") supposed to be found?
(Workbook name, worksheet name, range of cells)

 

[KrisK551]

I enter the info on the master sheet. then i can use the update button to update each individual sheet
only 1803 does not work. now none of it updates since i ran the sub test

 

[rlv01]

From the runtime error and your subsequent test you know the problem is something to do with Range("'1803'!Extract). You must investigate and determine the validity of the ranges you are trying to use. Is it in the right place on the right sheet? Does it contain the expected value? Was the named range "Extract" accidentally deleted or does it contain a bad reference? That kind of thing.

 

[KrisK551]

Thank you so much for your help