how compare file name with lastrow contains comma ,dot when file is open

[jindon]

                        s = myList(1, i) & Replace(myList(2, i), myAmount, x)
                        If Dir(s) = "" Then
                            Name fn As myList(1, i) & Replace(myList(2, i), myAmount, Format$(x, "#,###.00"))
                        Else
                            msg = msg & vbLf & Replace(myList(2, i), myAmount, Format$(x, "#,###.00")) & vbLf & _
                                " is already exists in the same folder"
                        End If

Above part should take care.
If file is exists that is to be renamed, you will get the result at the end.

Otherwise post Folder with workbooks to test. you will need to compress I guess.
If you can't, no help.