Try this macro
Sub MakeValues()
Dim rRange As Range
Dim iArea As Integer
On Error Resume Next
Set rRange = Selection.SpecialCells(xlCellTypeVisible)
For iArea = 1 To rRange.Areas.Count
rRange.Areas(iArea) = rRange.Areas(iArea).Value
Next
End Sub
To use it push Alt+F11 then Insert>Module and paste in the code. Now
click the top rigt X to get back to Excel. Select your range, then push
Alt+F8, select "MakeValues" and click Run.
*****Posted via:
http://www.ozgrid.com
Excel Templates, Training & Add-ins.
Free Excel Forum & Business Software*****