'Code in einer UserForm
Option Explicit

Sub Test()
  
  Dim i As Long
  
  For i = 1 To 20
    Cells(3, Me.Controls("ListBox" & i)) = "irgendein Wert"
  Next
  
End Sub

Bin mir jedoch nicht sicher inwieweit das auch Sinn macht. ;)

PS: Du solltest davor sicherstellen das auch wirklich in jeder Liste etwas ausgewählt wurde.