Help with runtime error 424 Object required
I get this error on this line of code
Range("J80").Select = p Sub doprint() ' ' doprint Macro Dim i As Integer Dim oCell As Range Dim cCell As Range Dim p As Long strjobnumber = InputBox("Start in Job Number?", " First Job to Print", 0) endjobnumber = InputBox("Finish in Job Number?", " Last Job to Print", 0) Range("I40").Select Range("I41").Select For Counter = strjobnumber To endjobnumber Application.ScreenUpdating = False Sheets("Pieces").Activate Range("L5").Value = Counter Range("J80").Select = p Sheets(Array("BatchSheet1", "BatchSheet2", "BatchSheet3", "BatchSheet4", _ "BatchSheet5", "BatchSheet6", "BatchSheet7", "BatchSheet8", "BatchSheet9", _ "BatchSheet10", "BatchSheet11", "BatchSheet12", "BatchSheet13", "BatchSheet14", _ "BatchSheet15", "BatchSheet16", "BatchSheet17", "BatchSheet18", "BatchSheet19", _ "BatchSheet20")).Select Sheets("BatchSheet1").Activate ActiveWindow.SelectedSheets.PrintOut From:=1, To:=p, Copies:=1, Collate _ :=True Application.ScreenUpdating = True Next Counter Sheets("Pieces").Activate Range("$A$1").Select End Sub |
Help with runtime error 424 Object required
Range("J80").Select
Selection = p -- Regards, Tom Ogilvy "Little Penny" wrote in message ... I get this error on this line of code Range("J80").Select = p Sub doprint() ' ' doprint Macro Dim i As Integer Dim oCell As Range Dim cCell As Range Dim p As Long strjobnumber = InputBox("Start in Job Number?", " First Job to Print", 0) endjobnumber = InputBox("Finish in Job Number?", " Last Job to Print", 0) Range("I40").Select Range("I41").Select For Counter = strjobnumber To endjobnumber Application.ScreenUpdating = False Sheets("Pieces").Activate Range("L5").Value = Counter Range("J80").Select = p Sheets(Array("BatchSheet1", "BatchSheet2", "BatchSheet3", "BatchSheet4", _ "BatchSheet5", "BatchSheet6", "BatchSheet7", "BatchSheet8", "BatchSheet9", _ "BatchSheet10", "BatchSheet11", "BatchSheet12", "BatchSheet13", "BatchSheet14", _ "BatchSheet15", "BatchSheet16", "BatchSheet17", "BatchSheet18", "BatchSheet19", _ "BatchSheet20")).Select Sheets("BatchSheet1").Activate ActiveWindow.SelectedSheets.PrintOut From:=1, To:=p, Copies:=1, Collate _ :=True Application.ScreenUpdating = True Next Counter Sheets("Pieces").Activate Range("$A$1").Select End Sub |
All times are GMT +1. The time now is 03:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com