I have an additional problem

Range("Substrate1").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A2:A3"), CopyToRange:=Range("AA5"), Unique:=False 'Filters and exports
Substrate1 data

Gives Gives "Application-defined or object-defined error

Dave Peterson wrote

If your code is behind a worksheet, then Range("S1") refers to the sheet with
that code--not the Substrate1 worksheet.

application.goto worksheets("substrate1").range("s1"), scroll:=true

should work
Oldjay wrote:

I have the following

Range("Z4:Z5").Select 'Copies blank cells to Country,CustomerPart NO &
Contacts Email input cell

Selection.Copy
Range("AD10").Select
Selection.PasteSpecial Paste:=xlPasteValues

Application.Goto Reference:="SubstrateStandard"
'This works where "SubstrateStandard" is cell Substrate1!S1

Sheets("Substrate1").Select
Range("S1").Select
'this will not work

Gives "Application-defined or object-defined error

oldjay

Try specifying the worksheet that owns the criteria range and the copytorange.

....criteriarange:=worksheets("sheet9999").range(" a2:A3"), _
copytorange:=worksheets("sheet8888").range("aa5"), ...

I used two different fake names. You may not want those.

Oldjay wrote:

I have an additional problem

Range("Substrate1").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A2:A3"), CopyToRange:=Range("AA5"), Unique:=False 'Filters and exports
Substrate1 data

Gives Gives "Application-defined or object-defined error

Dave Peterson wrote

If your code is behind a worksheet, then Range("S1") refers to the sheet with
that code--not the Substrate1 worksheet.

application.goto worksheets("substrate1").range("s1"), scroll:=true

should work
Oldjay wrote:

I have the following

Range("Z4:Z5").Select 'Copies blank cells to Country,CustomerPart NO &
Contacts Email input cell

Selection.Copy
Range("AD10").Select
Selection.PasteSpecial Paste:=xlPasteValues

Application.Goto Reference:="SubstrateStandard"
'This works where "SubstrateStandard" is cell Substrate1!S1

Sheets("Substrate1").Select
Range("S1").Select
'this will not work

Gives "Application-defined or object-defined error

oldjay

--

Dave Peterson

It is hard to follow your problem. Next timne list the code as it actually
appears along with your comments.

I think you problem is Substrate is a worksheet, not a range. If you want
to select the entire worksheet use the following

Sheets("Substrate1").Cells.Select

Advance filter must have a range object, not just a worksheet.
Range("Substrate1").AdvancedFilter Action:=xlFilterCopy,


You can do thjis to select the entire worksheet
Sheets("Substrate1").Cells.Select
Selection.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range( _
"A2:A3"), CopyToRange:=Range("AA5"), Unique:=False

"Oldjay" wrote:

I have an additional problem

Range("Substrate1").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A2:A3"), CopyToRange:=Range("AA5"), Unique:=False 'Filters and exports
Substrate1 data

Gives Gives "Application-defined or object-defined error

Dave Peterson wrote

If your code is behind a worksheet, then Range("S1") refers to the sheet with
that code--not the Substrate1 worksheet.

application.goto worksheets("substrate1").range("s1"), scroll:=true

should work
Oldjay wrote:

I have the following

Range("Z4:Z5").Select 'Copies blank cells to Country,CustomerPart NO &
Contacts Email input cell

Selection.Copy
Range("AD10").Select
Selection.PasteSpecial Paste:=xlPasteValues

Application.Goto Reference:="SubstrateStandard"
'This works where "SubstrateStandard" is cell Substrate1!S1

Sheets("Substrate1").Select
Range("S1").Select
'this will not work

Gives "Application-defined or object-defined error

oldjay