Hello wlcdo2

I suggest using Option Explicit at the top of your code modules.

Using the same range for the loop and CountIf your If statement will always be >0.

Believe you need to specify the shape type (or name) as well, something like
.Shapes("Rectangle " & rngList).Visible = True