Sub Values_4() Dim smallrng As Range For Each smallrng In Range("a1:c10,e12:g17").Areas smallrng.Value = smallrng.Value Next End Sub