Need code to copy data from closed workbook

[gspandi0503]

Hi,
I have a workbook with various sheets. First sheet of my current workbook is "StartData". I have more data files with a sheet name "EndData".
I want to copy data from Range B5:BP250 of Sheet "EndData" of any closed workbook. (User will select which file to get data from). The data need to be pasted in the current work book in the sheet "StartData" in B5:BP250

Thanks in advance.

[georgiboy]

Hi gspandi0503 welcome to the forum,

Perhaps the below will get you started:

Sub Test()
Dim sFile As String, tWb As Workbook, tWs As Worksheet
Dim sWb As Workbook, sWs As Worksheet

Set tWb = ThisWorkbook
Set tWs = tWb.Sheets("StartData")

With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then
sFile = .SelectedItems(1)
End If
End With

If sFile <> "" Then
Set sWb = Workbooks.Open(sFile)
DoEvents
Set sWs = sWb.Sheets("EndData")
tWs.Range("B5:BP250").Value = sWs.Range("B5:BP250").Value
sWb.Close False
End If
End Sub

[gspandi0503]

Thank you so much. It worked. Cheers...