VBA Modify code to say "If" file exists

[LNG2013]

I have the below code I need to modify to add an "If" the file goal.xlsx exists.
If it doesn't - do nothing. If it does import it.

Sub AOpenWB()

Application.ScreenUpdating = False
'Some Clean up first Clears import page


    Sheets("Import").Select
    Cells.Select
    Selection.ClearContents
    
  'Opens IEP GOAL data from same goal.
  Workbooks.Open "L:\Database\Goals\DropOff\goals.xlsx"
  

    Windows("goals.xlsx").Activate
    Cells.Select
    Selection.Copy
    Windows("GoalConditioner.xlsm").Activate
    Cells.Select
    ActiveSheet.Paste
    
    
      Workbooks("goals.xlsx").Close SaveChanges:=False
      Windows("GoalConditioner.xlsm").Activate
    

End Sub

 

[Joe4]

Have a look at the methods used here to check for a file's existence.

VBA Check if File or Folder Exists

VBA allows you to check if a file or folder exists by using the Dir function. Using the Dir Command to Check If a File Exists As we mentioned in the

www.automateexcel.com

 

[kvsrinivasamurthy]

This code may help you

Sub CheckFolderExists ()

Dim strFolderName As String
Dim strFolderExists As String

    strFolderName = "C:\Users\Nikola\Desktop\VBA articles\Test Folder\"
    strFolderExists = Dir(strFolderName, vbDirectory)

    If strFolderExists = "" Then
        MsgBox "The selected folder doesn't exist"
    Else
        MsgBox "The selected folder exists"
    End If

End Sub
We first assi

 

[Joe4]

This code may help you

Sub CheckFolderExists ()

Dim strFolderName As String
Dim strFolderExists As String

    strFolderName = "C:\Users\Nikola\Desktop\VBA articles\Test Folder\"
    strFolderExists = Dir(strFolderName, vbDirectory)

    If strFolderExists = "" Then
        MsgBox "The selected folder doesn't exist"
    Else
        MsgBox "The selected folder exists"
    End If

End Sub
We first assi

It looks like they want to check for the FILE, not the FOLDER.
Code is very similiar, but has a few key differences.
The link I posted shows the exact code needed right at the top.