help Creating seperate files from existing sheets

Hi
I am having some troubles with my VBA. its works fine, it does what I want. When I run it it creates seperate files out of all the sheets I want, But here is the problem, when creating seperate files the files contains links to formulas etc and that meeses things up, I want it to be created with values, no links, formulas etc. is it possible?
below is my working code.
thank you if anyone can help on how to fix this.

Sub SplitEachWorksheet()
Dim FPath As String
Dim TexttoFind As String
TexttoFind = "Sum"
TexttoFind = "3"
TexttoFind = "4"
TexttoFind = "5"
TexttoFind = "6"
TexttoFind = "7"
TexttoFind = "8"
TexttoFind = "9"
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets
If InStr(1, ws.Name, TexttoFind, vbBinaryCompare) <> 0 Then
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End If
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Hi
texttofind is any string in the sheetname Sum, 3 or 4 etc. thats the sheetnames it needs to create a separate file for.

Not sure what you mean, the Macro works properly it creates seperate files out the all the sheets I have. All I need this to do is create theese files with values in it, I don't want the original formulas in the cells to come with it. this is what I need help with to include a VBA in my code so when the separate files are created it is created with values in the cells and not formulas as in original sheet file.

Strange after putting this in the macro button created wont even start to run the macro

This is correct right?

Please Login or Register  to view this content.

No it didn't work, file created came with everywhere we had a formula it became #Value

ok another problem in the code is that my sheetnames isn't exactly SUM, 3, 4 etc, it should look at the sheets containing those prefixes. how would the code look like then?

yes exactly I want to check and see if the sheetname contains that. great I will try it.

Thank you this solved greatly the creating the files.
sorry I am learning how all these buttons works.
still having the issue when the file is created in those places there used to be a formula now gets #Value. the figures in those cells wont be pasted as values.

unfortunately I cannot attach the file public here as it contains business sensitive data.