Excel VBA Help

[A[L]C]

Hi all,

Ive got a user form with 10 combo boxes. They pull information off a sheet with stock details. I need to deduct the stock for the appropriate item as inputted on the combo box. I thought of doing something like this:

Private Sub CommandButton1_Click()
Dim SubtotalNumber
SubtotalNumber = "1"

Do Until SubtotalNumber = "11"
    Find = "ComboBox" & SubtotalNumber
    Find = Find.value    'ie ComboBox1.value

    Sheets("Stocklist").Activate
    Cells.Find(What:=Find, After:=[A1], _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlPrevious)
etc etc etc in here

SubtotalNumber = SubtotalNumber + 1
Loop
End Sub

but it doesnt work. Any other ideas?