Podle mne si zbytečně komlikujete život
Nestačilo by?
Private Sub CommandButton1_Click()
With Range("B2:B31")
.Formula = "=RANDBETWEEN(1,100)"
.Value = .Value
End With 'Range("B2:B31")
End Subcitovat
Nestačilo by?
Private Sub CommandButton1_Click()
With Range("B2:B31")
.Formula = "=RANDBETWEEN(1,100)"
.Value = .Value
End With 'Range("B2:B31")
End Subcitovat