Sub macro()
Workbooks("1.xls").Close
End Sub
No Problem I have consulted the same to many professional but i think its not the macro issue that software issue will be there no issues Problem Solved
I will do this manually or by some anyother way but by vba it is not possible i think so Thnx Alot
Sub Check_If_Workbook_Open()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Name = "1.xls" Then
MsgBox "workbook is open"
End If
Next
End Sub
Case 2)when i download the file,it opens up automatically & when i try to run the same macro then i am not getting any msg