копирую данные в другой файл и сохраняю под названием из ячейки.  
Что-то я неправильно прописал именно при сохранении файла в который скопированы данные, выдает ошибку, поправьте пожалуйста  
 
' Макрос1 Макрос  
'  
   Range("L1:Y26").Select  
   Selection.Copy  
   Windows("Шаблон ТТС (Резидент).xls").Activate  
   ActiveWindow.SmallScroll Down:=-9  
   Range("A16:B16").Select  
   ActiveWindow.SmallScroll Down:=3  
   Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _  
       xlNone, SkipBlanks:=False, Transpose:=False  
   ActiveWindow.SmallScroll Down:=6  
   Range("M25:M100").Select  
   Application.CutCopyMode = False  
   Selection.ClearContents  
   ActiveWindow.SmallScroll Down:=-3  
   Dim path As String  
path = ThisWorkbook.path  
ActiveWorkbook.SaveAs Filename:=path & Cells(3, 2) & ".xls", _  
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _  
ReadOnlyRecommended:=False, CreateBackup:=False  
End Sub