Yes i change my path Dim rngNames As Range, rng As Range
Dim lRow As Long, nextrow As Long, r As Long, lRow2 As Long
Application.ScreenUpdating = False
CopyFromPath = "C:\Users\travelmall\Desktop\REPORTS"
Set CopyToWb = Workbooks("Mainsheet.xlsm")
FileName = Dir(CopyFromPath & "*.xlsx")

Do While Len(FileName) > 0
Set wb = Workbooks.Open(CopyFromPath & FileName)