a = List1.List(List1.ListIndex)
と
With List1
a = .List(.ListIndex)
End With
一行だけど下の方が早い?