Convert formulas to its value in a folder

[Panoos64]

Hi to all of you! Kindly require to provide me support so that a VBA would convert all formulas to its values in a folder which contains around 800 files and each file contains 4 sheets. I just want to convert the first sheet's formulas named "St. Issues" without open each file. In my personal opinion I think is a complicated code but I would much appreciated if someone could support me to resolve my project. Many thanks to all of you!

 

[eiloken]

Run this macro, select all your files and this will covert all your formulas to values

Sub CovertFormulaToValue()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim FNum As Integer
    Dim WbIn As Workbook
    Dim ShIn As Worksheet
    Dim Selectfiles As Variant
    Dim xCll As Range
    Selectfiles = Application.GetOpenFilename(Filefilter:="Excel File (*.xls*),*xlsx*", MultiSelect:=True)
    For FNum = 1 To UBound(Selectfiles)
        Set WbIn = Workbooks.Open(Selectfiles(FNum))
        WbIn.Sheets(1).Select
        Set ShIn = WbIn.Sheets("St. Issues")
        For Each xCll In ShIn.UsedRange
            If xCll.HasFormula Then
                xCll.Formula = xCll.Value
            End If
        Next xCll
        WbIn.Save
        WbIn.Close
    Next FNum
    MsgBox "Completed!", vbInformation, "All done"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub