Selection Convert to Values

[billandrew]

Good afternoon

I am converting formulas to values with the below code. The problem I have if I select a non continuous range it does not work.


Any ideas

Thank You

Sub ConvertFormulas()


With Selection

.Value = .Value

End With




End Sub

 

[Rick Rothstein]

Try it this way...

Sub ConvertFormulas()
  With Selection.SpecialCells(xlFormulas)
    .Value = .Value
  End With
End Sub

 

[billandrew]

Works perfect.

Thank you again Mr.Rothstein