Mail Merge Error
 

Hi
I have a sheet that I use to generate costs. I wrote a
bit of VBA to mail merge the info into a word document.
This worked fine, then I did not use the sheet for a
while.
When I came to use it again, on pressing the button to
invoke the mail merge, I got the following error:
Runtime Error 5273 Application-Defined or Object-Defined
error

Dont understnad how this has come about as I've not
changed anything!
Any reason why?!?!?(code below)
TIA
Tim


Sub PopulateProposal()
'On Error GoTo errorHandler
Dim wdApp As Word.Application
Dim myDoc As Word.Document
Dim myRange As Word.Range

'open Word
Set wdApp = New Word.Application
With wdApp
.Visible = True
.WindowState = wdWindowStateMaximize
End With

'open Template
Worksheets("Deployment Input").Activate 'activate the
sheet with path details
Curfile = Range("H18") 'the path details of the
template
Set myDoc = wdApp.Documents.Open(Curfile)
Set myRange = myDoc.Words(1)

'mail merge
Curfile = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
With ActiveDocument.MailMerge
'load data range from spreadsheet
.MainDocumentType = wdCatalog
.OpenDataSource Name:=Curfile _
, ConfirmConversions:=False, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"DSN=Excel Files;DBQ=" + Curfile
+ ";DriverId=22;MaxBufferSize=512;PageTimeout=5; " _
, SQLStatement:="SELECT * FROM
`MailMergeField`"
'do actual mail merge
'.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
..