Each sheet  has a unique name (user-assigned, if the defaults are
changed), and also a unique number. See the Excel VBA object model for
how to handle unique numbers. I am going to demonstrate this for unique
names only.

You can tackle this as follows:

Sub Rectangle_Sheets()

' This procedure calls the rectangle_make macro  for user-defined sheets
in this workbook.

Dim i As Integer

For i = 1 To 4
Sheets("Sheet" & i).Select
Call rectangle_make
Next i

Sheets("Sheet7").Select
Call rectangle_make

For i = 9 To 10
Sheets("Sheet" & i).Select
Call rectangle_make
Next i

End Sub