Function does not round!

Hi everyone,

I am running into an issue I can't solve right now. I've done a complex VBA add-in for my office which around 30 people uses. It always ran smooth until I made an update to one section of code.

The code is calculating areas for metal steel deck with given values and needs to round distances according to the sheet's dimensions.

It is working good on my computer and with a sample test I get a rounded value for the width (lets say 30), but on someone's pc, the round function is not applied and he gets like 27.143214.

How is it possible?

I tried the round.up and ceiling function.

His computer and Excel settings are exactly like mine.

I also tried it on his coworker's pc and it worked!

I just don't understand how a line of code can't work on one particular computer -__-'

Select Case Deck.sSpanD
        Case "HORIZONTAL"
            dOverlap = (Application.WorksheetFunction.RoundUp((dTotalWidth / Deck.dSheetLength), 0) - 1) * (Deck.iSideLap / 12)
            dTotalWidth = dTotalWidth + dOverlap
            dTotalHeight = Application.WorksheetFunction.RoundUp((dTotalHeight / ((Deck.dSheetWidth / 12) - iPrecision)), 0) * (Deck.dSheetWidth / 12)
        Case "VERTICAL"
            dOverlap = (Application.WorksheetFunction.RoundUp((dTotalHeight / Deck.dSheetLength), 0) - 1) * (Deck.iSideLap / 12)
            dTotalHeight = dTotalHeight + dOverlap
            dTotalWidth = Application.WorksheetFunction.RoundUp((dTotalWidth / ((Deck.dSheetWidth / 12) - iPrecision)), 0) * (Deck.dSheetWidth / 12)
    End Select