Hello,

This is my code to copy each sheet in a book to an individual book.
But i see that when copying, it copies the formula, but i want to copy only number formats.

So that when i send mails, the receiver can read the file. Otherwise with formulas, receiver can not read it.

What should i add in this code below?
thank you for your promt replies.


Sub BreakItUp()
Dim sht As Worksheet
Dim NFName As String
Const WBPath = "C:\"

For Each sht In ActiveWorkbook.Worksheets
sht.Copy
NFName = WBPath & sht.Name & ".xls"
ActiveWorkbook.SaveAs Filename:=NFName, _
FileFormat:=xlNormal, CreateBackup:=False
ActiveWindow.Close
Next
End Sub