Filter as a resize of an offset of a variable?

[Lidget]

Hi,
I have a list of worksheet names in column c corresponding to other information on that row, columns I:Y correspond to some data I want to filter for but I'm struggling. From a log of googling, offset and resize seems to be the way forward but I can't get it going.
Currently working with

Dim c1 as range
Dim rngwork as range
Dim vwork as variant

With sheets("control")
For each c1 in .range("c4"),  .range("c" & rows.count).end(xlup))
If evaluate("isref('" & c1.value & "'!a1)") then
Set rngwork = worksheets("control").range(c1.offset(0,6).resize(0,17))
vwork = rngwork.value
Sheets("data").range("a4:az").select
Selection.autofilter field:=4, criteria1:=array(vwork), operator:=xlfiltervalues
'some copy and paste here
Next c1
End with

Can anyone help me stop banging my head on the desk please, it's getting sore

 

[Lidget]

Ignore me, sorted it through a lot of trial and error.
Should have been
Set rngwork = c1.offset(,6).resize(,17)