Code
Sub STEP11()
Dim wb1 As Workbook
Dim ws1 As Worksheet
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
Set wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls")
Set ws1 = wb1.Worksheets.Item(1)
With ws1
If IsEmpty(Range("A2")) = False Then
wb1.Close
Else
FSO.movefile source:="C:\Users\WolfieeeStyle\Desktop\HotStocks\H2.xlsb", destination:="C:\Users\WolfieeeStyle\Desktop\"
wb1.Close
Kill "C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls"
ThisWorkbook.SaveAs "C:\Users\WolfieeeStyle\Desktop\HotStocks\H1.xlsb"
Kill "C:\Users\WolfieeeStyle\Desktop\H1.xlsb"
Shell "taskkill /F /IM EXCEL.EXE"
End If
End With
End Sub
Display More