Hi LJMetzger
OK I have to apologize for the below statement. I took the folder to my other computer
and put it on the desktop and changed the file path, and it worked perfect, thanks you so much.
the problem is I changed some registry on this computer for DDE and it no longer works on this
computer, so I will have to probably wipe excel and reload it on this one.
below is the problem with this comp now, not with the code. i'll leave the answer this way
incase someone has the same problem using this code.
and i'll mark this as solved. 
Thanks Again LJMetzger
all hail LJMetzger hehe.
I get an error when I paste this into my command button, I'm using the active x control button on my sheet.
could that be the problem?.
below I get the dreaded yellow on this line ( Set xlApp = New Excel.Application).
Private Sub CommandButton1_Click()
'Adapted from Andy Pope circa 2003 - Thank you again, Andy.
'http://www.ozgrid.com/forum/showthread.php?t=16893
'
'It it the calling routine's responsibility to make sure that:
'a. The Excel file to be opened exists
'b. The Excel file is not already open
Dim xlApp As Application
Dim xlBook As Workbook
Dim sPathAndFileName As String
'Create the Path and File Name for the Workbook
sPathAndFileName = ("C:\Users\RAM\Desktop\TEST\CHARTB.xlsm")
'Open a new Instance of Excel and make it visible
Set xlApp = New Excel.Application
xlApp.Visible = True
'Open the File in the new instance of Excel
Set xlBook = xlApp.Workbooks.Open(sPathAndFileName)
'Clear the objects
Set xlApp = Nothing
Set xlBook = Nothing
End Sub
Thanks
Keith
Bookmarks