How can I...

[ColdGeorge]

Hi all

How can I save the active sheet (and all content) as a xls file in same folder using active sheet name? thanks for your assistance.

ColdGeorge

 

[Sektor]

ActiveSheet.SaveAs "C:\MyFileName.xls", 56

 

[ColdGeorge]

I am very sorry Sektor, but code does not work, shows an error message, thanks anyhow.

ColdGeorge

ActiveSheet.SaveAs "C:\MyFileName.xls", 56

 

[Sektor]

What path do you save and what does error say?

 

[ColdGeorge]

Sektor

I've been doing some search over the Internet and this is what I've found,

I want to combine this

ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
Application.CutCopyMode = False

and this

Dim thisWb As Workbook
Set thisWb = ActiveWorkbook
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=thisWb.Path & "\newbook.xlsx", FileFormat:=51
ActiveWorkbook.Close savechanges:=False

Any suggestions?