Error manager auto expand message

[Anonymous]

Hi, 

I'm using the error manager en messagesection, is there a way to auto expand the "sub" message (Pagina:1 - Used scale...)

Sub test

Dim oErrorMgr As ErrorManager
Dim oMsgSection1 As MessageSection
Dim oMsgSection2 As MessageSection

Set oErrorMgr = Thisapplication.ErrorManager
Set oMsgSection1 = oErrorMgr.StartMessageSection
Set oMsgSection2 = oErrorMgr.StartMessageSection
oMsgSection2.AdoptMessages("strLogMsg.Trim", True)
oMsgSection1.AdoptMessages("The scale on these sheets does not match against the standards" & vbCrLf & "Standard scales are: 1:1,1:2,1:5,1:10,1:20,1:50,1:100,2:1,5:1,10:1", True)
oErrorMgr.Show("Standard Scale Warning", True, False)

End sub

[YuhanZhang]

This can be a wish to enhance its function, please log one on the IdeaStation.