This is a piece off code from an APP (PETRAS Reporting)written by Bovey and
others for their book.

Y hope somebody will recognize it here.

The line off code "Set wksData.........."(see below) repeadedly gives back
an error.
The RefersToRange.Parent(Y do not completely understand it)

Y hope somebody can help me with this(maybe Bovey himself)
Because y sort off want to adapt the code to work with my own APP.

const sSOURCE As String = "ConsolidateWorkbooks"

On Error GoTo ErrorHandler

'Ask for a multi-select list of files to consolidate
vFiles = Application.GetOpenFilename("PETRAS Timesheet Workbooks
(*.xls), *.xls", , "Selects Workbooks to Consolidate", "Consolidate", True)

'Exit if cancelled. As we asked for a multi-select list,
'we'll get an array returned if OK, or False of Cancelled,
'so we can test for the array (OK) case:
If Not IsArray(vFiles) Then Exit Sub

Application.ScreenUpdating = False

'Get the sheet to write to
Set wksData = ActiveWorkbook.Names("rngDataArea").RefersToRange. Parent


Thanks,
Richard