File Selection- if user cancels- End Sub Then call macro1

[Foncesa]

Hi,

If user selects cancel (condition False) then End Sub and call macro1 and if user selects file (condition True) then call macro2
This codes are for file selection.
Thanks in advance.



Sub LoadLV()
Dim wb As Workbook
Dim pickfile As Variant
pickfile = Application.GetOpenFilename(fileFilter:="Excel Files (*.*), *.csv", _
Title:="Choose File:::::::::", MultiSelect:=False)
If pickfile = False Then Exit Sub
Set wb = Workbooks.Open(pickfile, True, False)
End Sub

[arnelgp]

Sub LoadLV()
Dim wb As Workbook
Dim pickfile As String
pickfile = Application.GetOpenFilename(fileFilter:="Excel Files (*.*), *.csv", _
Title:="Choose File:::::::::", MultiSelect:=False)

If pickflie = "False" Then
Call macro1
Else
Call macro2
End If

[snb]

Sub M_snb()
with application.filedia log(3)
if .show then
macro1
else
macro2
end if
end with
end sub

[Foncesa]

Hi snb,


Sub LoadLV()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim Searchtext As String
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Set vrtSelectedItem = Workbooks.Open(vrtSelectedItem, True, False)
Next vrtSelectedItem
Macro1
Else
Macro2
End If
End With
Set fd = Nothing
End Sub


Thanks SNB, i did this way. one thing before importing data from file i want to check text string in Column D2 for "Agreement Particulars" if it is there, then goto Macro1, else flash message improper file, then call Macro2.