Inserting round up or round down expression in my code

[Ironman]

Hi

I have the following code

With Worksheets("Daily Tracking")
    uValue = Sheets("Training Log").Range("MlsYTDLessLastYr")
    Select Case uValue
        Case Is < 0
            utext = "less"
        Case Is = 0
            utext = "equal"
        Case Is > 0
            utext = "more"
    End Select
    MsgBox "You have now run " & uValue & " miles " & _
        utext & " than this time last year ", vbInformation, "Mileage Compared To This Time Last Year"
End With

I am trying to add a line of code for the msgbox that will round uValue down to the nearest whole number if the decimal is <0.50 or round up to the nearest integer if uValue is 0.5 or greater.

Thanks for your help.

 

[Michael M]

Try

uValue = Round(uValue, 0)
MsgBox "You have now run " & uValue & " miles " & _
        utext & " than this time last year ", vbInformation, "Mileage Compared To This Time Last Year"
End With

 

[Ironman]

That works perfectly Michael - thank you so much!

 

[Michael M]