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