The following code (thanks Dave) isnt doing what I want it to do. I would like it that if the file existed it would move to section of the sub named continue, if the file doesnt exist it runs a seperate sub that creates a new one.
fName = Range("F3").Value & ".xls"
.LookIn = "G:\john\paul\peter\data"
.FileName = fName
If .Execute > 0 Then