Change font of Msg Box displayed

[RAJESH1960]

Hello guys
When I run the code, a message box is displayed. Is it possible to change the font (size / Bold/ color) of the message displayed in a message box.? If so please share an example.

 

[RAJESH1960]

Oh. I didn't know about that. Dragging a form to another workbook. Let me try.

 

[RAJESH1960]

Wow. You can drag a module too a new workbook. That is cool.

 

[johnnyL]

Yep

 

[RAJESH1960]

'MsgBox ("Data Cleared. Paste new data in columns A:G.")
'-----------------------------------------------------------------------------------
' Message box section
'-----------------------------------------------------------------------------------
        With Form_MessageBox
            .BackColor = RGB(0, 0, 255)                                             ' Background color of Message box ... RGB(0, 0, 255) = Blue
            .BorderColor = RGB(0, 0, 0)                                             ' Set border color ... RGB(0, 0, 0) = Black
            .Caption = Space(110) & "Title of Message Box"                          ' Title for the Message box ... Space command used for centering
'
'-----------------------------------------------------------------------------------
' Text message section
'-----------------------------------------------------------------------------------
            With .LabelMessage
                .BackColor = RGB(255, 255, 255)                                     ' Background color of test message area ... RGB(255, 255, 255) = White
                .Caption = "Data Cleared. Paste new data in columns A:G."           ' Message(s) to display in the Message area
                .Font = ArialBlack                                                  ' Font for Message area
                .Font.Bold = True                                                   '
                .Font.Size = 36                                                     ' Set how big you want the text to be
            End With
'-----------------------------------------------------------------------------------
            .Height = .LabelMessage.Height + 75                                     ' Height of Message box
            .Width = .LabelMessage.Width + 30                                       ' Width of Message box
'-----------------------------------------------------------------------------------
            With .cmdOK
                .Top = .Parent.LabelMessage.Top + .Parent.LabelMessage.Height + 15
                .Left = .Parent.Width - (.Parent.Width / 2) - 21
            End With
'
            .Show                                                                   ' Show the Message box
        End With
    End If
End Sub

Is there anything else I am missing. I got a compile error at stating variable not defined

                .Font = ArialBlack                                                  ' Font for Message area

 

[johnnyL]

I don't see anything wrong.

If it happens again, all I can suggest is upload the file to look at.

 

[RAJESH1960]

Test multiple Message Box.xlsm

 

[RAJESH1960]

For now, I have edited the clear data code msg box only. I have to test for Generate xml also. Do I have to just replace the msg box with the same code with a single user form or do I need another user form for the other message.? In the generate xml I know that I have to replace the caption but will it work with one user form or not not sure because not yet tested.

 

[johnnyL]

You only need the one form.

 

[RAJESH1960]

You only need the one form.

Ok.

 

[johnnyL]

Something in the rest of your code must be messing up that line of code.

Just comment out that line of code and get rid if that 'end if' at the end, that is going to throw an error also.