Convertendo xlsx em xlsb

Recentemente, descobri os benefícios de converter documentos do Excel para XLSB (binário), principalmente o corte quase pela metade dos tamanhos de arquivo.

Gostaria de aplicar isso a alguns dos meus arquivos mais antigos, mas não quero ficar por aqui salvando esses documentos.

Essa macro deve poder pesquisar em toda a unidade C: \, encontrar apenas os arquivos XLSX e abri-la e salvá-la no formato de arquivo .xlsb na mesma pasta com o mesmo nome, mantendo também o arquivo .xlsx original.

Saudações

Sub Savesheet()
'
' Save Macro
' Save to Server
'
Dim strPath As String
Dim strFileNm As String
strPath = "H:/"
' get file name from worksheet Sheet1 cell C2
strFileNm = Worksheets("Sheet1").Range("C2").Value & " OnShift RFI"

    ActiveWorkbook.SaveAs Filename:=strPath & strFileNm & ".xlsb", _
               FileFormat:=xlExcel52

End Sub

Além disso, atualize a macro acima de acordo com o seguinte:

I believe the correct parameters look like this,

.SaveAs Filename:=strFileNm, FileFormat:=50   'xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)

consulte esta página

Eu pesquisei e encontrei o link acima, onde foi fornecido. Nenhuma garantia ou solução de problemas do meu lado.