Macro crashes excell from remote location
I have a macro that runs fine except when I connect to my computer at
home via "Gotomypc.com" If I run the macro from home it crashes excel. Gives me an error message that cell range could not be read and exel.exe will close. All my other macro's run fine from home. Any Idea what could cause this? Or how to clean up the code? The code is: Sub Assembly_Schedule_Builder() ' ' Assembly_Schedule_Builder Macro ' Macro recorded 6/23/2004 by SCHEDULING ' ' Range("U1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Range("C:C,F:F").Select Range("F1").Activate Selection.Insert Shift:=xlToRight Range("C1").Select ActiveCell.FormulaR1C1 = _ "=IF(LEFT(RC[1],5)=""HERTZ"",""HERTZ"",IF(LEFT(RC[1],5)=""DOANE"",""TERA"",""K""))" Range("D1").Select Selection.End(xlDown).Select Range("C70").Select Range(Selection, Selection.End(xlUp)).Select Selection.FillDown Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWindow.SmallScroll Down:=-36 Range("D1").Select Application.CutCopyMode = False Range("G1").Select ActiveCell.FormulaR1C1 = _ "=IF(LEFT(RC[1],5)=""ROADR"",""RDR"",IF(LEFT(RC[1],5)=""ROADW"",""RWY"",LEFT(RC[1],3)))" Range("A1").Select Selection.End(xlDown).Select Range("G70").Select Range(Selection, Selection.End(xlUp)).Select Selection.FillDown Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWindow.SmallScroll Down:=-39 Range("D:D,E:E,H:H").Select Range("H1").Activate Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("N:N").Select Selection.Cut Columns("K:K").Select Selection.Insert Shift:=xlToRight Range("B2").Select Range("B2:L2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Template:= _ "C:\Documents and Settings\SCHEDULING\Application Data\Microsoft\Templates\MASTER.XLT" Range("B3").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("B3").Select ActiveSheet.DisplayAutomaticPageBreaks = True End Sub |
All times are GMT +1. The time now is 01:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com