Sub Replace_by_VAL()   '  в выбранном диапазоне в не скрытых ячейках заменить формулы на значения 'http://www.excelworld.ru/forum/3-45-68810-16-1383818995
   Dim rRng As Range, rAr As Range
   On Error Resume Next
   With ActiveWindow.RangeSelection.Cells
      If .Count = 1 Or .MergeCells Then   ' если выбрана всего одна ячейка, то SpecialCells выберет все на листе, соответствующие условию
         .Item(1) = .Item(1).Value: Exit Sub
      Else   ' если выбрано несколько ячеек, то SpecialCells выберет только нужные
         Set rRng = .SpecialCells(xlCellTypeFormulas).SpecialCells(xlCellTypeVisible)
      End If
   End With
   If rRng Is Nothing Then Exit Sub
   For Each rAr In rRng.Areas: rAr.Value = rAr.Value: Next
   rRng.Select ' восстановить выбор диапазонов ячеек (можно не делать)
End Sub