With-End With

[lezawang]

Hi
I have "dept" as ListBox and I am trying to initialize it using With-End With but I got compiler error. Thank you so much.

Private Sub UserForm_Initialize()
    With dept
        .AddItem = "hr"
        .AddItem = "it"
        .AddItem = "marketing"
        .AddItem = "sales"
    End With
End Sub

 

[Fluff]

What is the error?

 

[mikerickson]

AddItem does not take an equals sign try

With dept
    .AddItem "hr"
    'etc
End With

 

[lezawang]

The error message, compiler error function value. Yes it works without = sign. Thank you so much.