precentage cell

[jazib iqbal]

Hi
i have one questions. i try insert value in to the
precentage cells with vba but something wrong, if i insert
nr 5 this change to the 500%


code:
-----------------------------------------------------------
---------------------

Dim iReply As Integer
Dim rListPaste As String
On Error Resume Next
st:
rListPaste = Application.InputBox("enter %")

If rListPaste = "" Then
iReply = MsgBox("emty," _
& " terminate?", vbYesNo + vbQuestion)

If iReply = vbYes Then Exit Sub

If iReply = vbNo Then
GoTo st
End If
End If
rng = rListPaste

 

[Frank Kabel]

Hi
100% is equal to 1
so 5% is equal to 0.05

in your example change the line
rng = rListPaste
to rng = rListPaste/100

 

[Tom Ogilvy]

rng = rListPaste & "%"

should also work.