VBA Fehlermeldung Objekt erforderlich, bei ...

Private Sub CommandButton1_Click()
'Eingabe Objektnummer = 1 bis 10'
swert = ActiveSheet.Range("a300")
'Eingabe Planjahr = 1 bis 10 - 2 bis 3'
awert = ActiveSheet.Range("b300")
Dim wks As Worksheet
If awert = 1 Then
' Hier erfolg immer Fehlermeldung Objekt erforderlich , auch bei den anderen Abfragen '
Set wks = swert ' Sheetname = 1'
Else
If awert = 2 Then
Set wks = swert & " - 2. Planjahr" ' Sheetname = 2 - 2. Planjahr (Bsp.) '
Else
If awert = 3 Then
Set wks = swert & " - 3. Planjahr" ' Sheetname = 2 - 3. Planjahr (Bsp.)'
End If
End If
End If
' Öffnendes Fenster , Dateiname wird angegeben '
Dim var As Variant
Dim sFiles As String
sFiles = "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls, "
sFiles = sFiles & "Objektbeurteilungen (*.xls), *.xls"
On Error Resume Next
' Hier soll er den Dateinamen, mit dem zu öffnenden Sheet kombinieren und einfügen '
var = Application.GetOpenFilename(sFiles) & wks
Sheets("Rechnung").Select
Sheets.Add Type:=var
wks.Select
End Sub