Hi Macropod,

As mentioned used the # symbol for the code. Please help me out based on the requirements which i mentioned in initial thread

Dim XPath As String
Dim Email As String


XPath = Application.ActiveWorkbook.Path
Email = XPath & "\Monthly sales.msg"




ActiveSheet.OLEObjects.Add(Filename:=Email, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\system32\packager.dll", IconIndex:=2, IconLabel:= _
"Monthly sales.msg").Select
Range("K7").Select