Sub MAJ()
Sheets(2).Name = [a5]
Range("H9").Hyperlinks(1).SubAddress = "'" & Range("a5").Value & "'!A1"
Sheets(3).Name = [a6]
Range("I9").Hyperlinks(1).SubAddress = "'" & Range("a6").Value & "'!A1"
Sheets(4).Name = [a7]
Range("J9").Hyperlinks(1).SubAddress = "'" & Range("a7").Value & "'!A1"
Sheets(5).Name = [a8]
Range("K9").Hyperlinks(1).SubAddress = "'" & Range("a8").Value & "'!A1"
Sheets(6).Name = [a9]
Range("L9").Hyperlinks(1).SubAddress = "'" & Range("a9").Value & "'!A1"
Sheets(7).Name = [a10]
Range("M9").Hyperlinks(1).SubAddress = "'" & Range("a10").Value & "'!A1"
Sheets(8).Name = [a11]
Range("N9").Hyperlinks(1).SubAddress = "'" & Range("a11").Value & "'!A1"
End Sub