Thanks Tom,

Now I remember -
any directory that can be emptied should be emptied or cleaned up by
removing select items
especially
recycle bin
internet temp files
deleted items folders
mail in-boxes
too many messages in my ng folders
I was amazed at how the stuffing of these folders affected Excel...

In your workbook
too many -
font types
custom number formats
cell formats

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
On the troublesome machine, clean out the temp directory and any
directories
and files below the temp directory, particularly any file with an
extension
of .exd

You can try what Steve suggested, particularly the code cleaner. If all
that fails, you might try rebuilding the workbook on the problem machine.

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
I would check the file on your machine and remove any references that are
non-standard (create a new workbook on your machine and with it active in
the VBE, go to tools=References - that should show you what is
standard).
Do the same with your troublesome workbook as the activeworkbook
(selected
in the Project explorer).

Remove any differences.
Then save the file

This is just a guess, however.

--
Regards,
Tom Ogilvy

"Ken Loomis" wrote in message
...
When I send my workbook to someone to run, it bombs and crashes Excel.
No
warnings, No Message. No nothing.

I used this Function from Chip Peasron to determine if a file exits:

Function SheetExists(sname As String, _
Optional ByVal wb As Workbook) As Boolean

MarkSub "SheetExists"

' Chip Pearson
On Error Resume Next
If wb Is Nothing Then Set wb = ThisWorkbook
SheetExists = CBool(Len(wb.Sheets(sname).Name))
End Function
============

I call that function with this if statement:

If Not SheetExists("Oldfiles", ActiveWorkbook) Then

=============


I do not really understand the "File Exists" function, but it works
fine
on
my system.

Using a GetInfo routine I got from somewhere, I have been able to
capture
the following information about the system where this crashes, if it
helps:

Application Name 10.0
Operating system Windows (32-bit) 4.90
Application Path C:\PROGRAM FILES\OFFICEXP\OFFICE10
Library Path C:\PROGRAM FILES\OFFICEXP\OFFICE10\LIBRARY


On my system, where the program works, that GetInfo routine captures
this:

Application Name 11.0
Operating system Windows (32-bit) NT 5.01
Application Path C:\Program Files\Microsoft Office\OFFICE11
Library Path C:\Program Files\Microsoft Office\OFFICE11\LIBRARY


Sorry for the bad formatting.



I hope I haven't provided too much information, but if you should need
more
please let me know.

Please help me figure this out.

TIA,
Ken Loomis