Rigel44, не вставляйте дополнительных строк кода между теми, что Вам предложили (особенно если не понимаете что Вы вставили и что произойдет в Еxcel при выполнении этой строки) и все будет работать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Sub Makros()
Dim FSO As Object
Dim File As String
File = "C:\Users\Александр\Downloads\qbittorrent_4.1.6_x64_setup.exe"
Set FSO = CreateObject("Scripting.FileSystemObject").GetFile(File)
MsgBox FSO.Size & vbNewLine & FSO.Name
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.