Dynamic range that change variables

[jolivanes]

If you would change

Set r = Columns(1).Find(ComboBox1).Resize(, 17)

To

Set r = Sheets("Data1").Columns(1).Find(ComboBox1).Resize(, 17)

Would that make a difference?