macro question

[Terry]

I am trying to modify a macro so that the cell is
formatted with a percent and 2 decimal places. The macro
right now inserts a number formatted with a percent but
no decimal places into B3. The code is as follows:

Range("B3").Select
Selection.Style = "Percent"

Can someone help me with this. Thanks in advance.

 

[Hari]

Hi Terry,

Sub Macro1()
Selection.NumberFormat = "0.00%"
End Sub


Regards,
Hari
India

 

[Terry]

Wow that was fast and it worked great. Thank you so much
Hari.

 

[Don Guillett]

Without selecting.

Range("B3").NumberFormat = "0.00%"

 

[Dave Peterson]

Another option would have been to change the Percent style number format to show
2 decimal places:

Format|style|percent|click on Modify
and change it to 2 decimals.

These styles live with the workbook that they're in--it won't affect other
workbooks (well, unless you merge styles)

 

[Gord Dibben]

Terry

Sub NumToPercent()
Dim c As Range
For Each c In Selection
a = c.Value
If IsNumeric(a) Then
If a <> 0 Then a = a / 100
c.Value = a
c.NumberFormat = "0.00%"
End If
Next
End Sub

Gord Dibben Excel MVP