Macro Exit Sub

[howard]

following code rto exit a sub if the source file is empty

I would like to change this that if A2 is emty then macro to exit

 fileSource = Application.GetOpenFilename
If fileSource = False Or IsEmpty(fileSource) Then Exit Sub

It would be appreciated if someone could amend the code to suit my needs

 

[Jonmo1]

Try

If Isempty(Range("A2")) Then Exit Sub

 

[howard]

Thanks for the help

 

[Jonmo1]

You're welcome.