Kyle,

Working with numbers on a worksheet: select them first then run

Sub myRoundUp()
Dim myC As Range
For Each myC In Selection
myC.Value = Application.WorksheetFunction.RoundUp(myC.Value * 2, -1) / 2
Next myC
End Sub

working with variables in a macro:

Sub myRoundUp2()
Dim myV As Double
myV = 68.7
myV = Application.WorksheetFunction.RoundUp(myV * 2, -1) / 2
MsgBox myV
End Sub

HTH,
Bernie
MS Excel MVP


wrote in message
...
I am writing a macro and I need it to take a number and round it up to
the nearest multiple of 5.

For example:

If the number is 74 the macro would change it to 75
If the number is 65.7 the macro would change it to 70 etc.

Can someone show me how to do this?

Thanks,
Kyle