Update Code - From simply Closing the files to Saveas. (Same Location, Name and Ext)

[epoiezam]

Hi Guys, I'm back

Need some assistance here. With the said code below. How can we "SAVEAS" the file/s instead of just "CLOSE"ing it.
Just want to close the file properly so that none of those unclose workbook file still hanging around.


Dim i As Long, objFolder As Object, wsFiles As Worksheet
Dim colFiles As Collection, arrFiles, WB, MyPath As String


MyPath = "H:\0.0.1 LEAD REFERRAL\0.1MyFiles\"
'Filename = "UB Tracking"

Set colFiles = GetMatchingFiles(MyPath, "UB Tracking.xlsx")
Debug.Print "Found " & colFiles.Count & " matching files"

ReDim arrFiles(1 To colFiles.Count, 1 To 3) 'size output array

Application.ScreenUpdating = False

For i = 1 To colFiles.Count
Set WB = Workbooks.Open(colFiles(i), ReadOnly:=True)
arrFiles(i, 1) = WB.Path
arrFiles(i, 2) = WB.Name
arrFiles(i, 3) = WB.Sheets(1).UsedRange.Rows.Count - 1
=> WB.Close False '<= Save the file in the same loc, name and ext.


Next i
Application.ScreenUpdating = True
Set wsFiles = ThisWorkbook.Sheets("Sheet1")
wsFiles.Range("F2").Resize(colFiles.Count, 3).Value = arrFiles

 

[epoiezam]

Hi Guys,

Nevermind, manage to find away to solve it..

Thanks

 

[Peter_SSs]

Good to hear you have found a solution.

If you would like to post that solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.