Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Runtime 9 error Check.
Hi
I have a survey spreadsheet with the following macro. For some reason when a colleague runs it he gets a runtime 9 error. I have looked through some other posts and i have seen a lot of comments saying change the "Windows" line to start with "Workbooks" Would this solve the problem in this scenario too, or would there be another reason the error is flagging too? Many Thanks Matt Sub Post_To_Job() ' ' ' Re-Coded 17-09-09 by Matt ' Application.ScreenUpdating = False Application.DisplayAlerts = False Range("B5").Copy Workbooks.Open Filename:="W:\Trade_Sales_Planning\Matt\MZ Response Boxv2", Password:="A123456=b" Sheets("Job").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).FormulaR1C1 = "=NOW()" ActiveCell.Offset(1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, -1).Select ActiveCell.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Code added here 'Name added to column C ActiveCell.Offset(0, 2).Value = Environ("UserName") ActiveWorkbook.Save ActiveWorkbook.Close Windows("MoanZone.xls").Activate Range("B5").Select Application.CutCopyMode = False Selection.ClearContents ActiveWorkbook.Save Application.DisplayAlerts = True Application.ScreenUpdating = True UserForm1.Show End Sub -- Matt Lynn Message posted via http://www.officekb.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
RunTime Error | New Users to Excel | |||
Runtime error '1004' General ODBC error | New Users to Excel | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) |