Apparently, I made a mistake during the copy and paste. The
.Tag assignment line in Public Sub ActivateControl subroutine should read as follows:
rCtl_Control.Tag = Trim(rGrd_grdGrid.Row) & "," & Trim(rGrd_grdGrid.Col)
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein