I have a number of excel sheets which I need to assess.
Idea was to place all the excel sheets in one location and process them simultaneously
So, I would place the excel sheets in folder "Show" and then would run the macro to add the word "inplace" if the column H was containing some data, and then it would save the excel sheet.



I have the following code which works but takes about 98 seconds to process ( too long) .. Need help to reduce the processing time or to develop a new logic which can reduce the time to process.

Sub Trial()

Dim Master As Workbook
Dim sourceBook As Workbook
Dim CurrentFileName As String
Dim myPath As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False



Set Master = ThisWorkbook


myPath = "D:\Show"
CurrentFileName = Dir(myPath & "\*.csv")

Do
Workbooks.Open (myPath & "\" & CurrentFileName)
Set sourceBook = Workbooks(CurrentFileName)

Columns(24).Formula = "=if(H1="""","""",""InPlace"")"
Columns(24).Value = Columns(24).Value

ActiveWorkbook.Save
sourceBook.Close (False)

'Calling DIR w/o argument finds the next .xlsx file within the current directory.
CurrentFileName = Dir()
Loop While CurrentFileName <> ""


MsgBox "Done"

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub