Boa noite!!

Tente algo assim..

Sub AleVBA_13415() 
     
    Dim fName       As String 
    Dim MyFolder    As String 
     
    MyFolder = "/home/oracle/Downloads" 'Para Windows tente C:AleVBA" 
     
    If Right$(MyFolder, 1) <> "" Then MyFolder = MyFolder & "" 
     
    fName = Dir(MyFolder & "*.xls") 
     
    Do While Len(fName) 
        Name MyFolder & fName As MyFolder & Replace(fName, ".xls", ".xlsx", , , 1) 
        fName = Dir() 
    Loop 
     
End Sub 

Att

alexandrevba, Bom dia,

Testei o código, mas o que me parece, apenas renomeia a extensão do arquivo é isso mesmo?

Porém, preciso que abra cada um e Salve Como (.xlsx)

Pois são arquivo do SAP salvo em XLS, porém em formato de Texto com Tabulações ai para meu outro código não serve.

Ai preciso fazer manualmente isso, abrir todos os arquivos e salvar como para dar certo.

Quando apenos renomeio o arquivo nem abre.

Bom dia!!

Considere que eu não consiga te ajuda (devido meus limitados conhecimentos), sendo assim...
Tente ler e seguir atentamente as recomendações do link
http://www.rondebruin.nl/win/s5/win001.htm

Att