全シート名を取得、全シート名を変更

■全シート名を取得

Sub GetAllSheetsName()
    Dim i As Long
        
    For i = 1 To Worksheets.Count
        Debug.Print Worksheets(i).Name
    Next
End Sub

■全シート名を変更(特定の文字列+連番)

Sub ChangeAllSheetsName(Changed As String)
    Dim i As Long
        
    For i = 1 To Worksheets.Count
        Worksheets(i).Name = Changed & i
    Next
End Sub