Run-time error 380 in Excel VBA

[Caz46]

Hello,

I am trying to create a calendar and would like it to show the current month and year, below is the code I am using:


Private Sub UserForm_Initialize()

Dim i As Integer

With Me.cmbMonth
For i = 1 To 12

.AddItem VBA.Format(VBA.DateSerial(2019, i, 1), "MMMM ")

Next i
.Value = VBA.Format(VBA.Date, "MMMM")
End With


End Sub

The code runs to allow the months to show in the combo(List) box, but as soon as I add the code shown in red, to request it to always show the current month, it returns the run-time error 380 message saying 'Could not set the Value property. Invalid property value.

Any help would be appreciated as I cannot move forward with my project without this.

Thanks
Caz

 

[eduzs]

Why "VBA." ?

.Value = Format(now(), "MMMM")

 

[dmt32]

Hi,
welcome to forum

try adding line shown in bold below & see if this resolves your issue

    Dim i As Integer
    
    With Me.cmbMonth
       .Style = fmStyleDropDownCombo
    For i = 1 To 12
    
      .AddItem VBA.Format(VBA.DateSerial(2019, i, 1), "MMMM ")
    
    Next i
      .Value = VBA.Format(VBA.Date, "MMMM")
    End With

Dave

 

[Caz46]

Dim i As Integer With Me.cmbMonth .Style = fmStyleDropDownCombo For i = 1 To 12 .AddItem VBA.Format(VBA.DateSerial(2019, i, 1), "MMMM ") Next i .Value = VBA.Format(VBA.Date, "MMMM") End With

Hello @dmt32.

This worked perfectly, thanks for your help.

Caz

 

[dmt32]

Hello @dmt32.

This worked perfectly, thanks for your help.

Caz

welcome - appreciate feedback & Happy New Year.

 

[Caz46]

Why "VBA." ?

.Value = Format(now(), "MMMM")

Hi eduzs,

I am using VBA as it is the best way I know to create a dynamic calendar. If you have other suggestions, I am happy to hear them.

Caz

 

[eduzs]

I just suppose that is unnecessary to add "VBA." before those functions.