How to refer to the (NAME) of the Sheet rather than the Name of the sheet in my macro

[Creare]

Dear Sirs,
I am running this easy macro, see below. My problem is that it only works if the sheet (tabs) are called 1, 2, 3, 4,...etc. The users of the spreadsheet often change the TAB sheets so I would like the macro to refer to the actual (NAME) of the sheet, the one that you find first under the PROPERTIES section of the Microsoft Visual Basic Editor. Could anyone help?

Kind regards
Creare

Sub Unhide_all()
'
' Unhide_all Macro
' To unhide all rows on all the scope tabs
'
' Keyboard Shortcut: Ctrl+Shift+U
'
    Sheets("1").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("2").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("3").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("4").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("5").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("6").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("7").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("6").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("8").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("9").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("10").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("11").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("12").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("13").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("14").Select
    Range("A9").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
    Sheets("15").Select
    ActiveSheet.Range("$A$9:$A$480").AutoFilter Field:=1
End Sub