Reduce processing time for saving excel sheets located in a folder

[rexer231]

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

[:) Sixthsense :)]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)