List selected filenames in an Excel range of cells

[TomyLee]

Hi,

How can I write the message in cell A2


Code:
Msg = "You selected:" & vbNewLine
For I = LBound(FileNames) To UBound(FileNames)
Msg = Msg & FileNames(I) & vbNewLine
Next I
MsgBox Msg
[/code]

I my VBA code I can select many files, and I need to write in some cells starting with A12

Thank you.

[princ_wns]

Hi Tomylee,

Please use this i hope this will help you.

Public Sub GetBrandsFiles()
    Dim varArrFile  As Variant
    Dim intCtr      As Integer
    Dim strFiles    As String
    Dim rngFiles    As Range
    
    With ThisWorkbook.Worksheets("Sheet2")
        Set rng = .Range("A1")
        varArrFile = Application.GetOpenFilename("*.xls,*.xlsx", , "Select Brands Files", , True)
        If IsArray(varArrFile) = False Then
            MsgBox "Please Select Brand File..."
            shtIndex.Range("rngBrand1").Value = ""
            Exit Sub
        Else
            rng.Offset(0, 1).Value = "Following Files have selected by you :"
            For intCtr = LBound(varArrFile) To UBound(varArrFile)
                rng.Offset(intCtr, 1).Value = varArrFile(intCtr)
            Next
        End If
    End With
End Sub

Regards
Prince

[TomyLee]

Hi Prince,

Thank you very much. It's all I need.
Once again thank you.