Sub Macro_for_Obect_1()

Dim i As Integer
i = 32

Do While i <= 212
If Rows(i).EntireRow.Hidden = True Then
Range(Rows(i), Rows(i + 19)).EntireRow.Hidden = False
Exit Sub
End If
i = i + 20
Loop

End Sub

Sub Macro_for_Object_2()
Range("A32:A211").EntireRow.Hidden = False
End Sub

Sub Macro_for_Object_3()
Range("A32:A211").EntireRow.Hidden = True
End Sub

Good Luck