Change format from whole number to percentage

Brief description:

Changes format of whole number to percentage (ie 55 to 55.0%)

Full description:

Changes format of whole number to percentage (ie 55 to 55.0%)

To use: Select the range to be re-formatted. Modify code to match desired formatting.

Code:

Sub ChangeWholeToPercentLeaveBlanks()
    'Changes number format to percentage
    Dim SelectedRange As Range
    For Each SelectedRange In Selection
        If SelectedRange <> "" Then
            SelectedRange.NumberFormat = "0.0" & Chr(34) & "%" & Chr(34)
            SelectedRange.HorizontalAlignment = xlCenter
        End If
    Next SelectedRange


End Sub