Sub rangething() Dim myrange As range Set myrange = range("B5:H10") myrange.Value = "=rand()" End Sub