Сохранение файла в .xls по параметрам

[tibhar940]

Доброго времени суток.
Подскажите, пожалуйста, как можно сохранить в .xls
У меня сохраняет, но файл без определённого расширения

Sub чтото()
Const ResultPath As String = "C:\Documents and Settings\Files"
ActiveWorkbook.SaveAs Filename:= _
ResultPath + "\" + "Проба" + Worksheets("Анализ").Range("a2").Value, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[DiemonStar]

Sub чтото()
Const ResultPath As String = "C:\Documents and Settings\Files"
ActiveWorkbook.SaveAs Filename:= _
ResultPath & "\Проба" & Worksheets("Анализ").Range("a2") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[tibhar940]

Сообщение от DiemonStar

Sub чтото()
Const ResultPath As String = "C:\Documents and Settings\Files"
ActiveWorkbook.SaveAs Filename:= _
ResultPath & "\Проба" & Worksheets("Анализ").Range("a2") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Спасибо, именно так и сделал)
Жаль про оператор присоединения сразу не додумался. Уже было думал писать сюда снова (без определенных причин выдавал тайп дисматч рандомно если плюсики ставил).