i ran into a minor problem with a message box that was
too big to fit the screen due to the following program:

For i = 1 To .FoundFiles.Count
msg = msg & vbCr & .FoundFiles(i)
Next i
MsgBox("Found File '" & .Filename & "' with "
& .FoundFiles.Count & " file(s) in it." & Chr(10) & Chr
(10) & Replace(Replace(msg, Range("q263") & Range("q262")
& "\", ""), ".xls", "") & Chr(10) & Chr(10) & "Would you
like to save in the file?", vbYesNoCancel +
vbExclamation, "Existing File Found")

the file had 72 files in it and therefore
the 'yes' 'no' 'cancel' were off the page (youll note
that 'msg' adds a row for every file found). i would like
to have the message box list the foundfiles in columns of
20 names each but am not sure how to do it. if there is
no easy way, how do i set the maximum amount on the list
to like 50 or so?