Excel 2 workbooks coping data issues

[Ady12]

I have the following problem / challenge

Workbook 1 (starts life as a generic template but could be called anything), use opens and runs macro

Macro opens file browser to locate Workbook 2 (could be anyname)

macro then needs to copy 2 sheets from Workbook 2 and paste to Workbook 1

Workbook 2 then can be closed - no changes needed

I have been researching this across the net and tried a number of solutions but am getting no where.

Please help

 

[Ady12]

Here is the code to date - currently falls over at the

Sub ActiveBookName()
Dim RiskFile
RiskFile = Application.ActiveWorkbook.Name

'Locate&OpenSourceFile
Dim SourceFile
SourceFile = Application.GetOpenFilename("Excel files,*.xl?", 1)
If SourceFile = False Then Exit Sub
Workbooks.Open Filename:=SourceFile
'CopyData()

Sheets("Std.Pre-qualification Questions").Select
Cells.Select
Selection.copy
Range("A1").Select
Windows(RiskFile).Activate
Sheets("Pre-Qual Questionnaire").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Windows(SourceFile).Activate
Sheets("Cover").Select
Cells.Select
Selection.copy
Range("A1").Select
Windows(RiskFile).Activate
Sheets("Supplier Information").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub