Enable Events = True End Sub Sub DP_disbursement() Dim number_disbursements As Integer Application.
Paste Special Paste:=xl Paste Values, Operation:=xl None, Skip Blanks _ :=False, Transpose:=False Application.
So, the debug.prints are correct, reflecting the fact that screen updating is off.
Screen Updating didn't catch any change in the Screen Updating Property? and then put a debug print after the called sub ends and the code returns to the original sub. A selected sheet comes to the top even though screen updating is off.
Screen Updating = True Exit Sub Err Handler: Msg Box "no files txt", , "Kutools for Excel" End Sub 3.
Refresh Background Query:=False x File = Dir End With Loop Application. ", vb Yes No, "Kutools for Excel") = vb Yes Then x Sht.
Import multiple text files from a folder into each worksheets of a workbook with VBA Import multiple csv files from a folder into a single sheet with VBA Import multiple xml files from a folder into a single sheet with VBA Import or combine multiple xml/csv files into a sheet or a workbook with Kutools for Excel In sometimes, you may be confused with consolidate or combine multiple sheets/csv files into one sheet or one workbook for some special work, but a powerful utility of Kutools for Excel, Combine Worksheets function can quickly help you handle this job.