全シートを式から値に変換

Sub　全シートを式から値に変換()

　'全てのシートの処理
　for i = 1 to sheets.count
　
　'データがある全てのセル範囲を値に変換
　sheets(i).usedrange.value = sheets(i).usedrange.value

End Sub