Sub 另存()
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\sure\Desktop\"&Trim(Range("a1").Text) &“\"& Trim(Range("a1").Text) & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub