Переход от ссылок к значениям!

[mephist]

Суть проста! Очень хочется на всех листах книги автоматически заменить ссылки на значения. На голой логике попытался написать макрос

Sub Link_Value()
    For Each sheet in ???
    Sheets(???).Select
       Cells.Select
       Application.CutCopyMode = False
       Selection.Copy
       Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
          xlNone, SkipBlanks:=False, Transpose:=False
    Next Sheet
End Sub

Учитывая мои ничтожные знания, поясню, что хотел изобразить:
выбирать каждый лист книги, выделить все ячейки,копировать, вставить спец вставкой и перейти к следующему листу.

Как мне в строке

For Each sheet in ???

вместо "???" обозначить текущую книгу?
Как в строке

Sheets(???).Select

вместо "???" обозначить лист?
Напишите еще пожалуйста, я вообще правильно подошел к решению задачи.

[IgorGO]

Sub Link_Value()
For Each sheet in Sheets
Sheet.Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormat s, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Next Sheet
End Sub

А код, я надеюсь, с рекордера снят. Похоже, должен работать.

[mephist]

Грандиозно! Спасибо большое! Очень помогли!
А можно еще один вопросик для этого макроса.
Я хочу чтобы выскакивало окошко MsgBox предупреждающее, что после перехода от ссылок к значениям восстановить ссылки невозмжно. И чтобы было две кнопки "Да"- выполняем макрос; "Нет"- выход из макроса.

[pivas]

Попробуйте так:

Sub Замена_ссылок()
x = MsgBox("Ссылки будут заменены значениями без возможности восстановления. Продолжить?", vbOKCancel, "Замена ссылок")
If x = vbCancel Then GoTo 100

Здесь Ваш код замены ссылок

100
End Sub

[SAS888]

Я бы сделал так:

Sub Main()
    Dim Sh As Worksheet
    x = MsgBox("Ссылки  и формулы будут заменены значениями без возможности восстановления. Продолжить?", vbOKCancel, "Замена ссылок")
    If x = vbCancel Then Exit Sub
    For Each Sh In Workbooks("Имя_Книги")
        Sh.UsedRange.Value = Sh.UsedRange.Value
    Next
End Sub

[mephist]

SAS888 громадное СПАСИБО! Великолепно работает!
А можно для самообразования узнать???)))
Как сделать третью кнопку?
Просто есть мысль сделать третью кнопку "Save...", по нажатии которой будет выкидывать в стандартное окно сохранить как.
(Кстати это выкидывание можно осуществить через ActiveWorkbook.SaveAs???)