kbook.Sheets("sheet1").UsedRange.Copy _
ds.Sheets(c").Range("a2")
ActiveWorkbook.Close
Next c
ds.Save
Call chgdir
End Sub
4. NOT needed as you will close each after getting data.
I deleted most of your original post to save lines.
=
Don Guillett
SalesAid Software
dguille
Dear Sirs,
I have a macro which updates my monthly trial balance. But it's too
long. Takes time to process.
I want to shorten it particularly step 1, step 3 & step 4, using loop
which i am not very good at.
Please help how to shorten my codes. Below is my macro.
Thank you.
DanJ
STEP 1
Sub
