work for me. only change i make is make range Y17:AD17 so all cols get copy
to.

"Kentae" wrote in message
...
| Hi
| In the criteria range B5:G6 in the sheet I have a formula: =""&C15-10
there
| C15 can be a value between 80 - 200. For example 100 gives 90. But it
| doesent runs in the macro code: Range("B17:G220").AdvancedFilter
| Action:=xlFilterCopy, CriteriaRange:=Range("B5:G6"),
| CopyToRange:=Range("Y17"), Unique:=True
| Thanks in advance for help.