Pass Row and Column Number Index To Refer And Put Value To Cell Range

[bakerman]

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To 2
        .Cells(buildgPlan.CommandButton1.Caption, Me.ComboBoxDeterminingColumn.Value + i).Value = Me("ComboBox" & i + 1).Value
     Next
End Sub