 Sub test()  Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet0") Dim cs As Worksheet     Dim mycell As Range, RANG As Range, Mname As String, Rng As Range  Dim r As Range, dict As Object     Set dict = CreateObject("Scripting.Dictionary")     With Sheets(0)         ' Build a range (RANG) between cell F0 and the last cell in column F         Set RANG = Range(.Cells(0, "A"), .Cells(.Rows.