Tabellenblatt kopieren - Verständnisproblem

Sub Tabelle_einfuegen(strName As String, _
strFilename As String)
Dim wkbWorkbook As Workbook
Dim wksWorksheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set wksWorksheet = Sheets(strName)
Set wkbWorkbook = Workbooks.Open(strFilename)
wksWorksheet.Copy _
After:=wkbWorkbook.Sheets(wkbWorkbook.Worksheets.Count)
wkbWorkbook.Save
wkbWorkbook.Close
Application.ScreenUpdating = True
End Sub

Allerdings kann ich den Code nicht Ausführen. Ich habe da wohl eine Lücke, was
"

Sub Tabelle_einfuegen(strName As String, strFilename As String)"
angeht.
Kann mir jemand erklären wie ich das kopieren am besten bewerkstellige?
Micha