- place an apostraphe (') in front of the ActiveWindow.SmallScroll
ToRight:=-22 line as i'm not sure you actually need it
is your data in the range A1:H599?
are your headers in row 1?
does your data start in row 2?
is your criteria range actually BC1:BH2?
is the field names you're filtering on in this range on row 1?
do you have any criteria that you know exists in the data range in row
2?
are you sure only 36 rows of data will be returned (your destination range
says populate rows 1 to 36)?
if the amount of rows of returned data is unknown change the following
bit of code
CopyToRange:=Range("BJ1:BO36"),
to
CopyToRange:=Range("BJ1"),
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.