Tüm sayfaları formulden kurtarmak

[haso_excel]

Merhaba arkadaşlar,
Birden fazla sayfası olan bir çalışma dosyamda, her sayfada bulunan formullerden ve linklerden kurtulmanın kolay bir yolu var mıdır. Her sayfayı seçerek Copy past value yaparak olur ama çok sayfam var kolay bir yolu yok mu tüm sayfaları çoklu seçim yaparak gibi

 

[Asri]

kod olarak aşağıdaki şekilde yapabilir siniz.

Sub deger_yapistir()
  For Each ws In Worksheets
    ws.Activate
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
  Next
End Sub