"Compile Error : variable not defined" -while running below code, kindly suggest.

[pratzz00]

Option Explicit
Public sFolder As String
Public EmployeeName, EmployeeId As String
Public fileName As String

Public Sub MergeMail()
'
' MailMerge Macro
'
'

fileName = ActiveDocument.Name
MsgBox fileName
Dim i As Long
UserFormMailMerge.Show
For i = UserFormMailMerge.TextBoxFirstRecord.Value To UserFormMailMerge.TextBoxLastRecord.Value
With Documents(fileName).MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
.ActiveRecord = i
EmployeeName = .DataFields("Name").Value
EmployeeId = .DataFields("New_Code").Value
End With
.Execute Pause:=False
End With

 

[Micron]

Please post code within code tags (vba button on posting toolbar) to maintain indentation and readability. When you post about an error, at least indicate which line raises the error. Something is probably misspelled; perhaps your userform name or one of the referenced controls.

BTW, EmployeeName is a Variant and not a String because it's not explicitly declared. Perhaps you do know and that is intentional.