Import data from a closed workbook

I require an excel sheet to inport data from another closed workbook
The programming below works fine, but the source date is currently placed within the active workbook, called "AreaName".
The information needs to be imported from the sheet1 on a closed Excel workbook

Can you help, Thank you


I nPublic Sub CmdButtonOK_Click()

SiteName = CmbSiteSelect

intTargetRowCount = 80 'This is the row 10 were the information is placed.

IntNumRows = Sheets(AreaName).Range("A2").CurrentRegion.Rows.Count
'Using 'current Region' selects the all the data starting from cell A on the 2nd
'row to the end of the data i,e to cell "J526"

For introwcount = 1 To IntNumRows 'This tell the count to move along by cell

If Sheets(AreaName).Range("A2").Cells(introwcount, 11).Value = SiteName Then
'look for the specified name, in row 11, in the range from cell A2 in the
'worksheet 'Poplar'.

For intcolumnCount = 8 To 23

Sheets("DataSheet").Cells(intTargetRowCount, intcolumnCount - 7).Value = _
Sheets(AreaName).Range("A2").Cells(introwcount, intcolumnCount).Value

Next intcolumnCount

intTargetRowCount = intTargetRowCount + 1

End If

Next introwcount

Unload UserForm1eed it