Macro para renombrar archivo como .xlsb

Tengo una macro para renombrar un archivo Excel (.xls) con el nombre que hay en la celda AJ82 y convertiéndolo en archivo de Excel binario (.xlsb) pero no me funciona.

Alguien sabe de alguna opción diferente que funciones

Gracias (adjunto código)

Sub RENOMBRAR()
Dim Otra As Workbook
Set Otras = ActiveWorkbook
fName = Application.GetSaveAsFilename(Range("AJ82").Value, fileFilter:="Excel Files (*.xls), *.xls")
Otras.SaveAs Filename:=Range("AJ82").Value & ".xlsb"
If fName = " " Then
End If
Exit Sub
End Sub