Expand a message box?

[bgill]

I have a message box with text in it to provide instructions to the user. The box is too small and all of the text does not show. Can I make it bigger?

I have never used the buttons and message boxes before and just figured this out on my own by modifying some instructions I found in various searches. Please assume I know nothing about VBA!

Thank you.

 

[VoG]

You can split your message into multiple lines:

MsgBox "line 1" & vbNewLine & "line 2" & vbNewLine & "line 3"

 

[bgill]

Thank you. I am still only getting 12 lines of text. Can I get more than that?

 

[VoG]

Yes I think so (255 lines?). You can build your message then display it like this

msg = "line 1" & vbNewLine & "line 2" & vbNewLine & "line 3"
msg = msg & vbNewLine & "line 1" & vbNewLine & "line 2" & vbNewLine & "line 3"
MsgBox msg

However, there may also be a character limit (1024?).

Perhaps you should consider displaying a userform with a multi-line textbox (32,000 character limit).

 

[bgill]

Thank you for the suggestion. I can't figure that out either so I will find another way to do what I want.

Thanks again.

 

[VoG]

Maybe create a sheet (call it say "Info")
with a TextBox containing your instructions. The character limit I believe is enormous and you can format it as you wish (bold etc. which you cannot do with a message box").


Underneath that place a button from the Controls toolbar with the code

Private Sub CommandButton1_Click()
Me.Visible = xlSheetHidden
End Sub

Then in the ThisWorkbook module

Private Sub Workbook_Open()
With Sheets("Info")
    .Visible = xlSheetVisible
    .Select
End With
End Sub

 

[Nalani]

Stick the below in a Module and run it. You might get the idea then

Sub bgilltest()

MsgBox "I have a message box with text in it to provide " & vbCr & "instructions to the user. The box" & vbCr & _
"is too small and all of the " & vbCr & "text does not show." _
& vbCr & "" & vbCr & "Can I make it bigger?"
 
End Sub

I used vbCR but VOG's vbNewLine also works.

 

[Nalani]

With all due respect for VoG's comments on the character limit (1024)

I also notice that there seems to be a Width Limit for Message boxes.

With this test:

Sub bgilltest()

MsgBox "I have a message box with text in it to provide instructions to the user. The box is too" & vbCr & _
"small and all of the text does not show."

End Sub

The messabe box comes up with the first carriage return after the word The. Then there is the CR after too, which is in the code. Producing three lines in the Box.

Don't know how long or how much info you are trying to get into the Box. But if you don't mind chopping it up with CR's you have that solution.

Or you can go with what VoG suggested, creating another Sheet or using a UserForm.