Alexandre, Fiz uma modificação e ficou assim: Sub Test() Dim fs, filepath As Variant Dim i As Long Application.ScreenUp...