I'm new to VBA - So I hope this is understandable.



ComboBox in my UserForm: cboValues:
1
2
3
4
The number is selected in the ComboBox and added to a column in Excel.
The number is returned as "Text" to Excel so my pivot tables will not recognize the value.
I have tried several VBA coding ideas but none have worked.
I can update the Column to number format in Excel -- but when a new record is added, the cell value from cboValue still returns in Text Format.

Does anyone know how to automate/fix this with VBA code? Thanks.

What is the code you're already using?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

You probably haven't declared your variables as a Long.

This should help as a code stub to understand what you have done wrong?

Option Explicit

Private Sub CommandButton1_Click()

Dim lComboBox As Long, lCombBoxCount As Long

lCombBoxCount = Me.ComboBox1.ListCount - 1

With ActiveSheet
For lComboBox = 0 To lCombBoxCount
.Cells(lComboBox + 1, 1).Value = Me.ComboBox1.List(lComboBox)
Next lComboBox
End With
End Sub

Private Sub UserForm_Initialize()

Dim lComboBox As Long

Me.ComboBox1.Clear

For lComboBox = 1 To 10
Me.ComboBox1.AddItem lComboBox
Next lComboBox

End Sub