VBA - IF ERROR when opening a file, THEN ...

[Beachson]

Can someone help put together the proper code for the following?

IF an error occurs upon the following ...

Windows("CORPORPF.xlsx").Activate

Then open file "CORPORPF.xlsx" (Full file path is V:VAI:CORPORPF.xlsx")

If no error occurs then ...

Windows("CORPORPF.xlsx").Activate

Thank you for any help

 

[Fluff]

How about

On Error Resume Next
    If Workbooks("CORPORPF.xlsx") Is Nothing Then
        Workbooks.Open "V:Excel:CORPORPF.xlsx"
    Else
        Workbooks("CORPORPF.xlsx").Activate
    End If
On Error GoTo 0

 

[Norie]

Perhaps.

Dim wb As Workbook

    On Error Resume Next
    Set wb = Workbooks("CORPORPF.xlsx")
    On Error Goto 0

    If wb Is Nothing Then
        Set wb = Workbooks.Open("V:VAI:CORPORPF.xlsx")
    End If

    wb.Activate

 

[Beachson]

Both of those solutions worked for me. Thank you both!

 

[Fluff]

Glad we could help & thanks for the feedback