Excel vba copy worksheet from one workbook to another (1 Viewer)

Sub copydata()
Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shttocopy As Worksheet
Dim wbname As String
On Error GoTo ErrHandl

' check if the file is open
ret = Isworkbookopen("List.xls")
If ret = False Then
' open file
Set wkbSource = Workbooks.Open("List.xls")
Else
' Just make it active
 Set wkbSource = Workbooks("List.xls")
 End If

' check if the file is open

ret = Isworkbookopen("IGEN_QC.xls")
If ret = False Then
' open file
Set wkbDest = Workbooks.Open("IGEN_QC.xls")
Else
' Just make it active
 Set wkbDest = Workbooks("IGEN_QC.xls")

End If

' perform copy
Set shttocopy = wkbSource.Sheets("List")
'shttocopy.Copy wkbDest.Sheets(2)
shttocopy.Copy wkbDest.Sheets

ErrHandl:
MsgBox Err.Description
Err.Clear

End Sub

Function Isworkbookopen(filename As String)
Dim ff As Long, ErrNo As Long
Dim wkb As Workbook
Dim nam As String

wbname = filename
On Error Resume Next

ff = FreeFile()
Open filename For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0
Select Case ErrNo
Case 0: Isworkbookopen = False
Case 70: Isworkbookopen = True
Case Else: Error ErrNo
End Select

End Function