[slurpee55]

Sasuke, try Application.WorksheetFunction.RoundUp

[SasukeSama21]

Nope, gave me the same error!

Thanks
-SasukeSama21

[Keebellah]

Change the code in the module as follows:

Sub CalcPercentage()
    Dim Cell1 As Range
    For Each Cell1 In Range("A1:H48")
        If IsNumeric(Cell1.Value) = True _
            And Cell1.Value <> "" Then Cell1.Value = Format(Cell1.Value * 1.02, "0.00")
    Next Cell1
End Sub

This will change all numeric cells

[slurpee55]

I figured it was because it was trying to "round" strings - is that what was happening?

[Keebellah]

The problem is that the cells in the sample are all formatted G so when the value get's more decimals they expand

[slurpee55]

This may seem dull, but why not just format those specific cells as Number (or Currency!!!) that would be and alter the range to ignore the other cells anyway - then all you would have to deal with is blank cells....

[SasukeSama21]

The problem is that throughout the entire book, there are cells with words I would have to alter the range specific to each page, and it would take far too long. However Keebellah's last code cuts the numbers to two digits so it works out. I'm going to mark this thread as solved. Thanks for all the help !

Thanks
-SasukeSama21