Label5 = Format(arspremie, "Currency")

you have to format variable before you use it.

"Mia" wrote in message
...
| Hi,
|
| I cant get the userform to show arspremie in the right format.
| I want to show it in currency, do anyone know how to do this?
|
| My code a
|
| Private Sub UserForm_Activate()
| Application.OnTime Now + _
| TimeValue("00:00:05"), "KillTheForm"
| Dim namn As String
| Dim antal As String
| Dim arspremie As Currency
|
| namn = Application.UserName
| Label2 = namn
|
|
| antal = Sheets("Uppföljning").Range("S4")
| Label4 = antal & " st"
|
| arspremie = Sheets("Uppföljning").Range("L3")
| Label5 = arspremie
| Format (arspremie, "Currency")
|
| End Sub
|
|
|
| --
| Best regards
| Mia