Part of the solution was the following function to open the file. How and where can I set the default folder for opening and also part of the file name (for example xdfaerew*.xls)?
Function FunctionGetFileName(FullPath As String) As String
Dim StrFind As String
Dim iCount As Integer
Do Until Left(StrFind, 1) = "\"
iCount = iCount + 1
StrFind = Right(FullPath, iCount)
If iCount = Len(FullPath) Then Exit Do
FunctionGetFileName = Right(StrFind, Len(StrFind) - 1)
the function is called from the code as follows:
SourceWb = Application.GetOpenFilename 'Allows for user to select file
Workbooks.Open SourceWb 'Open source workbook
SourceWb = FunctionGetFileName(CStr(SourceWb))