ファイル すべてのシート 値だけ 別のシート

質問

ファイルAのすべてのシートに関数式が含まれています。
このシートを別フォルダーに分割し書き出すことは出来たのですが
関数式まで貼り付けられます。
これを値のみにしたいのですがご教授御願いします。
マクロはこれです。

Sub シート分割()

Const path As String = "C:￥"

Dim bk As Workbook
Set bk = ActiveWorkbook

Dim st As Worksheet
For Each st In bk.Sheets

Workbooks.Add
st.Copy Before:=ActiveWorkbook.Sheets(1)

ActiveWorkbook.SaveAs path & st.Name & ".xls"
ActiveWorkbook.Close

Next

End Sub

回答No.1

keithin · ベストアンサー

値にすればよいだけです。

sub macro1()
　dim myPath as string
　dim s as worksheet

　mypath = "C:\"
　for each s in worksheets
　　s.copy
　　activesheet.usedrange.value = activesheet.usedrange.value
　　activeworkbook.saveas filename:=mypath & activesheet.name & ".xls"
　　activeworkbook.close false
　next
end sub