Sub Values_10() Dim smallrng As Range For Each smallrng In Selection.Areas smallrng.Value = smallrng.Value Next End Sub