Dim str As String
Dim sPath As String
Sub MaSub()
str = Range("A1").Value
Range("A1").Select
ActiveCell.FormulaR1C1 = str
Windows("1dd.xls").Activate
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = str
Workbooks.Add
Sheets("Sheet1").Select
Sheets("Sheet1").Name = str
Range("A2").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.path & "/" & str & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Windows("dsdfds.xls").Activate
Sheets("Sheet2").Select
Cells.Select
Selection.Copy
Windows(str & ".xls").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Range("A1").Value = str
Windows("dd.xls").Activate
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=str & ".xls", _
SubAddress:="'" & str & "'!A1", TextToDisplay:=str
Windows(str & ".xls").Activate
ActiveWorkbook.Save
Windows("1dd.xls").Activate
ActiveWorkbook.Save
End Sub