Hello. How do loop through specific sheets?

I saw this, but I want to select something easily, like sheets 5 through 15, for example. 

Sub loopthrusheetarray()
Dim Sh As Worksheet
For Each Sh In Sheets(Array("Sheet2", "Sheet6", "Sheet10"))
MsgBox Sh.Range("a1")
Next