Macro works on Dell but not on IBM with same operating system, and Office v2003!!!

[hawkmoon]

I cannot figure this one out for the life of me! I tried to run the macro on several Dells and it works fine, but produces a system error that shuts down excel on an IBM Thinkpad computer! I checked the reference libraries, but they are the same on both computers!!! Both Dells and IBMs are running Windows XP with Office 2003. Any ideas on this one?

Here's the program:

Sub RUNMC()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Cur_Path = CurDir("C")
On Error GoTo ErrHandler
BrowseF
Windows("Sites.xls").Activate
Sheets("Sheet1").Select
Format_Col
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
r = Selection.Count
Range("C3").Select
 
For X = 1 To r
    Windows("Sites.xls").Activate
    ActiveCell.Offset(1, 0).Select
    Memorize_Data
    Fill_App
    Windows("ATCApp.xls").Activate
    SFile
Next X
 
ErrHandler:
If Err.Number = 9 Then
MsgBox "Cannot find file 'Sites.xls'. Please make sure this file is open and has not been renamed."
End If
 
End Sub
 
Private Sub Memorize_Data()
 
For C = 0 To 34
    DataFill(C) = ActiveCell.Offset(0, C)
Next C
 
End Sub
 
Private Sub SFile()
 
F_Name = DataFill(0)
Full_Path = newpath & "\" & F_Name & ".xls"
        ActiveWorkbook.SaveAs Filename:= _
        Full_Path, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
        ActiveWorkbook.SaveAs Filename:= _
        Cur_Path & "ATCApp.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub
 
Private Sub Fill_App()
 
Windows("ATCApp.xls").Activate
Range("J9").Select
ActiveCell.Value = DataFill(6)
Range("J10").Select
ActiveCell.Value = DataFill(0)
Range("B11").Select
ActiveCell.Value = DataFill(23)
Range("B12").Select
ActiveCell.Value = DataFill(24)
Range("E12").Select
ActiveCell.Value = DataFill(25)
Range("I12").Select
ActiveCell.Value = DataFill(26)
Range("K12").Select
ActiveCell.Value = DataFill(27)
Range("B13").Select
ActiveCell.Value = DataFill(1)
Range("E13").Select
ActiveCell.Value = DataFill(2)
Range("C21").Select
ActiveCell.Value = DataFill(28)
Range("F21").Select
ActiveCell.Value = DataFill(29)
Range("L21").Select
ActiveCell.Value = DataFill(30)
Range("C23").Select
ActiveCell.Value = DataFill(31)
Range("F23").Select
ActiveCell.Value = DataFill(32)
Range("L23").Select
ActiveCell.Value = DataFill(33)
Range("D55").Select
ActiveCell.Value = DataFill(9)
Range("D56").Select
ActiveCell.Value = DataFill(8)
Range("D57").Select
ActiveCell.Value = DataFill(19)
Range("D58").Select
ActiveCell.Value = DataFill(20) & "X" & DataFill(21) & "X" & DataFill(22) & " in"
Range("D60").Select
ActiveCell.Value = DataFill(11)
Range("D63").Select
ActiveCell.Value = DataFill(12)
Range("D69").Select
ActiveCell.Value = DataFill(16)
 
Range("D40").Select
ActiveCell.Value = "Axcera"
Range("D41").Select
ActiveCell.Value = "Innovator, LX"
Range("D42").Select
ActiveCell.Value = "Broadcasting"
Range("D43").Select
ActiveCell.Value = "200W"
Range("D44").Select
ActiveCell.Value = "63"
Range("D45").Select
ActiveCell.Value = "N/A"
Range("D46").Select
ActiveCell.Value = "120VAC"
Range("D47").Select
ActiveCell.Value = "N/A"
Range("D40").Select
 
 
If DataFill(13) <> "" Then
 
    Range("D40:D47").Select
    Selection.Copy
    Range("F40").Select
    ActiveSheet.Paste
    
    Range("D51:E69").Select
    Selection.Copy
    Range("F51").Select
    ActiveSheet.Paste
    Range("F63").Select
    ActiveCell.Value = DataFill(13)
Else
    Range("F40").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("F41").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("F42").Select
    Range("F41").Select
    Selection.Copy
    Range("F42:F47").Select
    ActiveSheet.Paste
    Range("F40:F47").Select
    Selection.Copy
    Range("H40:H47").Select
    ActiveSheet.Paste
    Range("J40:J47").Select
    ActiveSheet.Paste
    
 
    Range("F51").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("F52").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("F53").Select
    Range("F52").Select
    Selection.Copy
    Range("F53:F69").Select
    ActiveSheet.Paste
    Range("F51:F69").Select
    Selection.Copy
    Range("H51:H69").Select
    ActiveSheet.Paste
    Range("L51:L69").Select
    ActiveSheet.Paste
    GoTo Finished_Sect_Check
End If
 
If DataFill(14) <> "" Then
 
    Range("D40:D47").Select
    Selection.Copy
    Range("H40").Select
    ActiveSheet.Paste
    
    Range("D51:E69").Select
    Selection.Copy
    Range("H51").Select
    ActiveSheet.Paste
    Range("H63").Select
    ActiveCell.Value = DataFill(14)
Else
    Range("H40").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H41").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H42").Select
    Range("H41").Select ' To preserve Cell formatting after input
    Selection.Copy
    Range("H42:H47").Select
    ActiveSheet.Paste
    Range("H40:H47").Select
    Selection.Copy
    Range("J40:J47").Select
    ActiveSheet.Paste
    
 
    Range("H51").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H52").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H53").Select
    Range("H52").Select
    Selection.Copy
    Range("H53:H69").Select
    ActiveSheet.Paste
    Range("H51:H69").Select
    Selection.Copy
    Range("L51:L69").Select
    ActiveSheet.Paste
    GoTo Finished_Sect_Check
End If
 
If DataFill(15) <> "" Then
    
    Range("D40:D47").Select
    Selection.Copy
    Range("J40").Select
    ActiveSheet.Paste
 
    Range("D51:E69").Select
    Selection.Copy
    Range("L51").Select
    ActiveSheet.Paste
    Range("L63").Select
    ActiveCell.Value = DataFill(15)
Else
    Range("J40").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("J41").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("J42").Select
    Range("J41").Select
    Selection.Copy
    Range("J42:J47").Select
    ActiveSheet.Paste
    
    Range("L51").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("L52").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("L53").Select
    Range("L52").Select
    Selection.Copy
    Range("L53:L69").Select
    ActiveSheet.Paste
End If
 
Finished_Sect_Check:
Range("A1").Select
Windows("Sites.xls").Activate
 
End Sub
 
 
Private Sub Format_Col()
 
For X = 1 To 3
    Columns("P:P").Select
    Selection.Insert Shift:=xlToRight
Next X
    Columns("O:O").Select
    
    Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=",", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
        
End Sub
 
Private Sub BrowseF()
 
Dim objShell   As Shell
Dim objFolder  As Folder
Set objShell = New Shell
Set objFolder = objShell.BrowseForFolder(0, "Please select folder for saving ATC Applications:", 0, 0)
    If (Not objFolder Is Nothing) Then
        Dim objFolderItem As FolderItem
        Set objFolderItem = objFolder.Self
        If (Not objFolderItem Is Nothing) Then
            newpath = objFolderItem.Path
        End If
    End If
Set objFolder = Nothing
Set objShell = Nothing
 
End Sub

[RobDog888]

Whats the exact error message?

About all I can see right away is a possible issue where your reference to the Shell (Shell32.dll) may be different versions? This is dependant upon the version of IE installed also.

Without knowing the exact error there is nothing more that I can suggest.