Try thisSub test()If Range("H5").Value > Range("B8").Value ThenMsgBox "You have exceeded the maximum OB allowance!"End IfIf Range("H5").Value > Range("B10").Value ThenMsgBox "You have exceeded the maximum RET allowance!"End IfEnd Sub