Excel VBA - avoid Error 1004 writing UF ListBox Array to Sheet

Question

Task

My intention is to write back UserForm Listbox data to a sheet range in the most efficient way using the data field method.

Bas

Answer 1

Lbound(v,1) = 0 ubound(v,1) = r-1 so, it needs to modify i and j.

  For i = 0 To R - 1
      For j = 0 To C - 1
         v(i, j) = IIf(Left(Me.ListBox1.List(i, j) & "", 1) = "=", " ", "") & _
                             Me.ListBox1.List(i, j)
      Next j
  Next i