title: Userform listbox with percentages?
body: <p>I am using a listbox in an userform which displays a unique values from a column which is formatted as percentage. I am generating a unique list/values by using dictionary object and feeding it to a listbox. </p>
  
  <p>My problem is all the values are shown as decimal numbers in listbox not as percentages. Any idea how to show them as percentages/format?.</p>
  
  <p>FYI: listbox values can change depends on the user selection text/numbers/date/currency/percentage</p>
  
  <p>unique list code</p>
  
  <pre><code>Sub UniqData(fString As String, cbNr As Integer) ' fString as string
  Dim d As Object
  
  With Sheets("xxx")
  cNr = WorksheetFunction.Match(fString, .Rows(1), 0)
  
  lRo = .Cells(Rows.Count, 1).End(xlUp).Row
  arrD = .Range(.Cells(2, cNr), .Cells(lRo, cNr))
      Set d = CreateObject("scripting.dictionary")
       For Each c In arrD
              If Len(c) &gt; 0 Then
                  d00 = dic.Item(c.Text)
              End If
        Next c
      k = d.keys
  End With
  
  UserForm1.Controls("lb" &amp; cbNr).List = k
  
  End Sub
  </code></pre>
  
  <p>like this.</p>