Inputbox to enter a %
I'm tring to use an Input Box to enter a percentage. I'm entering 7.8 but
the cell shows 780.00%
Here's what I have (that's applicable)
Dim ACR As String
ACR = InputBox("ACR?")
Range("G47").Select
ActiveCell.NumberFormat = "0.00%"
ActiveCell.Value = "" & ACR & ""
I've also tried
ActiveCell.Value = "" & ACR & "" * 0.01
and
ActiveCell.Value = "" & ACR & "" / 100
but I get a Type Mismatch
When I try to declare the variable as in Integer, I get a Type Mismatch as
soon as I enter 7.8
I know I could enter .078 and my problem would be solved, but I'll have
other folks running this too. It makes more sense to be able to enter 7.8
and get 7.8% or 7.80% displayed.
Please help.
|