Excelマクロで、多数のシートの値だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。

質問

あまり詳しくないのですが、Excelマクロで、１つのファイルにある４０くらいのシートの計算式等をすべて排除した値＆図だけを元のファイルに上書きするようなマクロを教えていただきたいのですが。
マクロを使わないでの方法は、
(1)、シート選択
(2)、CTRL＋Ａ（すべて選択）
(3)、CTRL＋Ｃ（コピー）
(4)、形式を選択して貼り付け
(5)、値（選択値）
これをそのファイルが持っているシート分の繰り返しです。
宜しくお願いします。

回答No.1

merlionXX · ベストアンサー

Sub TEST01()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Next
MsgBox "おわりました。"
End Sub

これでどうでしょう？

お礼

迅速な対応とても感謝です。
完璧です。ありがとうございました（*^_^*）