Thanks a lot for the support. However, I have placed it in different places (below is just examples) and still does not work where the server file still appears in the below taskbar.
Also, I found that you can click on the server file while it is appearing in the taskbar and views its content which I do not want the user to do.
I would highly appreciate any further help. Thank you.
Code:
Sub getvalue()
Dim Path, myrange, ShName, Wb As String
Path = "\\Server Folder"
Wb = "Report-1c-Server.xlsx"
myrange = "A9:C9700"
Workbooks.Open Filename:=Path & "\" & Wb
Application.DisplayStatusBar = False
With ThisWorkbook.Sheets("EXHIBIT 6-A") 'change sheet1 to your sheet name
.Activate
Select Case ThisWorkbook.Sheets("EXHIBIT 6-A").Cells(5, "S")
Case 7
ShName = "Arxxx-MP-July"
Application.DisplayStatusBar = False
ActiveSheet.Cells(7, "B") = Application.VLookup(ActiveSheet.Cells(4, "G"),
Workbooks(Wb).Sheets(ShName).Range(myrange), 3, False)
Case Else
End Select
End With
Workbooks(Wb).Close , savechanges = True
End Select
End Sub