Sub FormulaToValue()
'Преобразовывает в выделенном массиве ссылки на другие листы в значения
Dim MyCell As Range
Dim MyRange As Range
Select Case MsgBox("Это действие не может быть отменено. Вы хотите продолжить?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
Set MyRange = Selection
For Each MyCell In MyRange
If MyCell.Formula Like "*!*" Then MyCell.Formula = MyCell.Value
Next MyCell
End Sub

 

Реклама