halo gan
nubi numpang nanya, kalau bikin loop buat create object ("Scripting.Dictionary") gimana ya gan?
saya udah coba:

Private Sub CommandButton1_Click()

Range(Me.RefEdit1).Name = "RD"

Range(Me.RefEdit2).Name = "OT"

Dim d As Object

Dim JK As Long

JK = Range("RD").Columns.Count

d = CreateObject("Scripting.Dictionary")

For k = 0 To JK + 1

d(k)=CreateObject("Scripting.Dictionary")

next k