Blank Display in MsgBox

[diamantebonita]

I basically copied this code out of the Excel 2010 Power Programming Guide, pg. 408, and changed it slightly to fit my needs.

list = ""
For r = 1 To 10
For c = 27 To 29
list = list & Cells(r, c).Text
If c <> 29 Then list = list & vbTab
Next c
list = list & vbCrLf
Next r
MsgBox list

The previous section of my code copies text to a separate area of the worksheet, and this section of code is supposed to display it as a list on a MsgBox that displays when the workbook is opened.

However every so often the list fails to display. The msgbox will pop up but it will simply be blank. I think it has something to do with the

'If c <> 29 Then list = list & vbTab' line

But I cant figure it out.

 

[Scott Huish]

Here's a simpler version of your code, and I think this does what you want:

Sub test()
Dim c As Range, list As String
For Each c In Range("AA1:AC10")
    list = list & c & IIf(c.Column = 29, vbLf, vbTab)
Next
MsgBox list
End Sub

 

[Scott Huish]

BTW, it is better to describe what it is you are trying to do rather than reference a book that we might not have.

 

[diamantebonita]

The code you gave was MUCH simpler, thanks! But the list still doesnt display consistently in the msgbox. So I will have to search through the rest of the code to see what the problem is.

thanks for your reply.