Sub NumToPercent()
'Excel macro to convert values to percentages with out dividing by 100
'Converts all values in a selection, leaving anything not a value
For Each C In Selection
	A = C.Value
	If IsNumeric(A) Then
		If A <> 0 Then A = A / 100
		C.Value = A
		C.Style = "Percent"
	End If
Next
End Sub