View Single Post
 
Old 05-11-2023, 10:42 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2019
Expert
 
Join Date: Aug 2014
Posts: 4,106
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

The best way to handle this would be to create a simple userform with a label, which can be configured to display any font available at any practical size and use Paul's macros to write the result to the label caption instead of to the message box.
Import the userform from the attached zip file into the same template as the macro code and call it by changing both lines from
Code:
MsgBox iTotal
to
Code:
With frmCalculator
    .Caption = "Total"
    .lblResult.Caption = iTotal
    .lblResult.Font.Size = 24
    .Show
End With
Attached Files
File Type: zip frmCalculator.zip (995 Bytes, 3 views)
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote