Сохранение листа в папку с использованием названия листа для присвоения имени файлу

Question

Я написал для кнопки -

Private Sub CommandButton1_Click()

    Dim path As String
    Dim filename1\ As String

    path = C:\Users\Barb\Desktop\demo\"
    filename1 = Range("C4").Text
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename1=path & filename1 & ".xlsx", 
    FileFormatxlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.Close

End Sub

Как мне сказать при сохранении листа использовать заголовок вкладки листа

Answer 1

что-то вроде, например:

filename1 = sheets(1).name

или

filename1 = activesheet. name

Answer 2

Если вы говорите о ActiveSheet, измените:

filename1 = Range("C4").Text

на:

filename1 = ActiveSheet.Name