Paulius rašė:

> Turiu toki paprasta macrosa
>
> Sub SaveAs()
>
>      Dim FName           As String
>      Dim FPath           As String
>
>      FPath = "C:\saskaitos\"
>      FName = Sheets("Saskaita").Range("G8").Text
>      ActiveWorkbook.SaveCopyAs Filename:=FPath & "\" & FName & ".xls"
>      rep = MsgBox("You sheet has been saved " & Name, vbYes + vbInformation, "Copy of spreadsheet")
>
>
>
> Kaip pakeisti, kad saugotu ne visa woorkbooka o tik konkretu sheeta?

ActiveSheet.SaveAs
WorkSheets("Sheet1").SaveAs