UserForm "run time Error 424 Object Required"

[bimo]

Hi Everyone

I have created this Basic form but for some reasons when I try to call the form I get error message "run time Error 424 Object Required"

Can you help please ?

Thank you

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim cell As Range
For Each cell In Range("A2:A5")
ListBox1.additemcell.Value

Next cell

For Each cell In Range("B2:B5")
combobox1.additemcell.Value
Next cell




End Sub

Sub CalculateDDM()

Dim Dividend As Double
Dim RequiredRtrn As Double
Dim NumOfYrs As Double
Dim FinalStockPrice As Double
Dim sumofPV As Double
'take user input

Dividend = cell(2, 2).Value
RequiredRtrn = cell(3, 2).Value
NumOfYrs = cell(4, 2).Value
FinalStockPrice = cell(5, 2).Value

'generate Dividend payout and output them to Excel Sheet

rowcounter = 8
For counter = 1 To NumOfYrs
Cells(rowcounter, 3).Value = counter
Cells(rowcounter, 4).Value = Dividend
Cells(rowcounter, 5).Value = Application.WorksheetFunction.PV(RequiredRtrn, counter, 0, Dividend)
sumofPV = sumofPV + Cells(rowcounter, 5).Value
Next counter

'output final caluclated Stock Price

sumofPV = sumofPV + Application.WorksheetFunction.PV(RequiredRtrn, NumOfYrs, 0, -FinalStockPrice)
Cells(1, 2).Value = sumofPV

MsgBox "DDM Calclulation Complete"





End Sub