Hi,
I have below macro which work successfully and created required box and loop through all the data
Sub add_EMPLOYEE_rectangles()Set aSht = ActiveSheet
Set rSht = Sheets("Role Scorecard")
rSht.Activate
Call reset_EMPLOYEE_rectangles
Dim galaxyF As Shape
Dim Empl_Lbl, Empl_Txt As Shape...