It is probably due to your Dim'ming NuAllowance as a Long... Long's cannot
hold decimal values. Try Dim'ming it as Double and see if that helps.

Rick


"Karen53" wrote in message
...
Hi,

Could someone tell me why my value is rounding up to whole numbers, not
allowing decimals, i.e. 1.50 or 1.75 etc?

Sub EditAllowedVariance()

Dim HasPswd As String
Dim NuAllowance As Long

HasPswd = InputBox("Enter Password", "Password")

If HasPswd = "" Then
'do nothing
Else
If HasPswd = MyPassword Then
NuAllowance = Val(InputBox("Enter desired allowed variance",
"Enter Variance"))
GrossUppg.Range("I2").NumberFormat = "00.00"
GrossUppg.Range("I2").Value = NuAllowance
Else
MsgBox "Incorrect Password"
End If
End If

End Sub
--
Thanks for your help.
Karen53