Inserting table into MsgBox

[dmorse03]

I have a table which occupies

D10..e18

How do I display this table in a MsgBox or an InputBox?

 

[Mudface]

You could try something like this (you don't really need the set command, btw, but it might be easier to amend and debug with it in): -

Public Sub ShowTable()

Dim myData
Dim myStr As String
Dim x As Integer
Dim myRange As Range

Set myRange = Range("D10:E18")

myData = myRange.Value

For x = 1 To UBound(myData, 1)
    myStr = myStr & myData(x, 1) & vbTab & myData(x, 2) & vbCrLf
Next x

MsgBox myStr

End Sub

 

[dmorse03]

That works. Thanks.

 

[zuzzu]

Hello everyone,

How can I insert a table(A1:I31) into msgbox when the excel file containing the table is CLOSED ? And I dont want to open the file.

If it's not possible by not opening, when i click for msgbox, the program can open the excel file (C:\table1.exe --> Fixed adress always) and then close.