Run Time Error 438 And AdvancedFilter

[MarsBars]

I am hung up on one of those wonderful Run Time Error 438 situations. This is the code:

Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Workbooks("Replenishment Reports.xlsm").Sheet2.Range("A2"), Unique:=True

I'm trying to copy only the unique values of a column (Selection) to another workbook. Based on what I'm seeing around the internets, it seems like an issue with the references between workbooks. I can't seem to get it to work though.

 

[JoeMo]

Try replacing Sheet2 with Sheets("The name of sheet2")

 

[MarsBars]

Thanks Joe. That one worked. I didn't realize that using the code name of the sheet didn't work when going back and forth between different workbooks.

 

[JoeMo]

Thanks Joe. That one worked. I didn't realize that using the code name of the sheet didn't work when going back and forth between different workbooks.

You are welcome - thanks for the reply.