Vælg rigtige regneark

Jeg har et problem med at få den til at vælge det rigtige regneark.
Jeg har 7 fra 2015-2021.

Først taster brugeren et år i en Msgbox. Denne udskiftes når det kører med Year(Now).

Public Sub VælgÅr()
Dim iAAr integer
iAAr = InputBox("Årstal")

If iAAr = 2015 Then
WorkSheets("X2015").Activate
ElseIf iAAr = 2016 Then
osv.

ElseIf iAAr = 2021 Then
Worksheets("X2021").Activate
Else
MsgBox "Fejl"

ActivateSheets.Select
Range(A4:E4).Select
Selection.Copy
Sheets("Samlet").Select
ActiveSheets.Paste

End If
End Sub

Alle 7 regneark (2015-2021) er ens men indeholder forskellige tal værdier.

Det er helt ok hvis jeg får en anden løsning bare den kan det samme.