Rutina de SaveAS

Estimado experto, necesito de su ayuda.
Tengo esta rutina para un guarda como, al principio tenia solo lo que está en negrita pero no me guardaba como archivo .XLS ahora le agregué lo otro pero me sale un error al momento de ejecutarlo.
¿Qué será lo que estoy omitiendo o haciendo mal? ¿Cómo lo puedo hacer para que me lo guarde como un archo excel?
Sub GuardarComo()
Dim Ruta, Nombre As String
Nombre = "SOLIC." & " " & Range("L8") & " " & Range("name")
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    Ruta = .InitialFileName
End With
    ActiveWorkbook.SaveAs Filename:= _
        Ruta & Nombre, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub
Atento a su comentario,
Themanky