fname = "\\pmi.corp\dfsroot\HumanDev\QA\Staff\MPP\Leadership Reporting\MPP-All Data Combined File (Work Pending).xlsx"
Workbooks.Open Filename:=fname, UpdateLinks:=0
How would I go about writing an if statement saying to activate this workbook if its open or open it if its not?
getobject(fname)
fname = "\\pmi.corp\dfsroot\HumanDev\QA\Staff\MPP\Leadership Reporting\MPP-All Data Combined File (Work Pending).xlsx"
If WBisOpen(fname) Then
Else
Workbooks.Open Filename:=fname, UpdateLinks:=0
End If
then I just called the function
Function WBisOpen(fname As String) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(fname)
On Error GoTo 0
WBisOpen = Not wb Is Nothing
End Function
Can you please wrap VBA code in code tags ?
Did you read post #2 ?
Ya. It didnt work. It like opened it but it wouldn't activate the workbook. Also how do u wrap code in tags?Originally Posted by snb
I tries but it didn't work. It opened the workbook one time but then it just disapeared. Also how do I wrap the code in tags?
Posting Permissions
Reply With Quote