Dim vntOutput As Variant
Dim i As Long
Dim j As Long
With Range("A1:B10")
ReDim vntOutput(1 To .Rows.Count, 1 To .Columns.Count) As String
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
Select Case VarType(.Cells(i, j).Value)
Case VbVarType.vbDate
vntOutput(i, j) = Format$(.Cells(i, j).Value, "General Date")
Case VbVarType.vbCurrency
vntOutput(i, j) = Format$(.Cells(i, j).Value, "Currency")
Case Else
vntOutput(i, j) = .Cells(i, j).Value
End Select
Next
Next
End With
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "2cm;2cm"
ComboBox1.List = vntOutput