ount, "A").End(xlUp))     End With      ' For each cell (mycell) in this range (RANG)     For Each mycell In RANG         Mname = mycell.Value         ' If the count of mycell in RANG is greater than 0, then set the value of the cell 0 across to the right of mycell (i.e. column G) as "Duplicate Found"         If Application.WorksheetFunction.CountIf(RANG, mycell.Value) > 0 Then          If dict.