Making new EXCEL file with value only by copy from other excel

[paulked]

Option Explicit
Sub CopyWorksheetValues()
    Dim ws As Worksheet
    Dim WS_Count As Integer
    Dim I As Integer
    Dim folderPath As String
    folderPath = Application.ThisWorkbook.Path
    Worksheets(Array("Keep1", "Keep2")).Copy
    With ActiveWorkbook
    WS_Count = .Worksheets.Count
        For I = 1 To WS_Count
        .Sheets(I).UsedRange.Value = .Sheets(I).UsedRange.Value
        Next
     .SaveAs Filename:=folderPath & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook
'Make whatever changes here
     .SaveAs Filename:=folderPath & "\New4.xlsx", FileFormat:=xlOpenXMLWorkbook
'Make even more changes here
     .SaveAs Filename:=folderPath & "\New5.xlsx", FileFormat:=xlOpenXMLWorkbook

     .Close SaveChanges:=False
    End With
End Sub