i have the following code in my change event procedu

Private Sub ComboBox10_Change()
Dim ftype As Integer
Recalc
ftype = 2 + ComboBox10.ListIndex
Call PriceToCell(12, ComboBox10, 20, ftype)
End Sub

I would like to generalize it, so that i can copy it to some other
locations. Is there some name i can use to replace the text
ComboBox10. I tried to use "Me", but that didn't work.