Excel crashes when trying to save with this VBA Code ?

[JumboCactuar]

Hi,

never seen anything like this before:

I insert this code into a blank workbook, and attempt to save as XLSM or XLSB and it just fails

Sub DownloadFile()

Dim myURL As String
myURL = "https:\\urltofile.com\A"

FPath = "C:\CSV\"
If Dir(FPath, vbDirectory) = "" Then MkDir FPath
 
FName = "Filedownload.CSV"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile FPath & FName, 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

End Sub

Any idea why?

Thanks

 

[Logit]

No problems here.

Your file : File Download.xlsm

 

[Eldrod]

Try running a Windows Repair on Office or Excel. I have found that when Excel starts acting strangely, a Quick Repair usually clears it up.