Это должно работать:
ActiveSheet.Cells.Find(UserForm1.ComboBox1.Value).Offset(0, 1).Select
Используйте ваше имя UserForm вместо UserForm1, то же самое относится и к CombBox1. Имейте в виду, что произойдет сбой, если на листе нет значения комбобокса (того, который вы ищете).
Также добавьте vbModeless рядом с UserForm1.Show, чтобы разрешить выбор ячейки.