Fejl ved at kopiere fra et ark til et andet

Hvor laver den fejl!?
den åbner den fil den skal men så heller ikke andet

det den skal er fra en knap åbner den en userform med en combobox og en knap, hvis man ikke har valgt nogle værdi i comboboxen gør den ikke noget
hvis der er værdi skal den åbne den mappe som comboboxen viser
og kopiere kolonne A:H over til ark test.xls og lukke efter sig..
Private Sub UserForm_Activate()
    Filnavn1.AddItem "-", 0
    Filnavn1.AddItem "1", 1
    Filnavn1.AddItem "2", 1
    Filnavn1.AddItem "3", 1
    Filnavn1.ListIndex = 0
End Sub
Private Sub CommandButton1_Click()
Side = Filnavn1 'fra combobox
Stig = "C:\X\"
If Filnavn1 = "-" Then
Else
On Error Resume Next
Workbooks(Side & ".xls").Activate
If Err.number <> 0 Then Workbooks.Open Stig & Side & ".xls"
    Windows(Side & ".xls").Activate
    Columns("A:H").Select
    Selection.Copy
    Windows("Test.xls").Activate
    Columns("A:A").Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows(Side & ".xls").Activate
    ActiveWorkbook.Close
End If
End Sub