Below is the code I am trying to exicute.

Range(Cells(6, ActiveCell.Column), Cells(325
ActiveCell.Column)).Select
Selection.Copy
Sheets("Master Inventory").Activate
Range("G3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlSubtract
SkipBlanks _
:=False, Transpose:=False
Range("O1").Select
Sheets("Sales History").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd
SkipBlanks:= _
False, Transpose:=False
Range("A3").Select
Sheets("Trucks").Select
Range("A9").Select
Application.CutCopyMode = False

I get error message indicating a problem with "range("g3").select

any suggestions?

Thank

--
~~ Message posted from http://www.ExcelForum.com

I get error message indicating a problem with "range("g3").select<<

Wouldn't it be nice if you gave us a hint about what problem was indicated
by the error message? Or better still, the textof the message?

It's hard to conceive of that line causing a problem unless xlNoSelection
protection is at work,

--

Vasant

"brwilson" wrote in message
...

Below is the code I am trying to exicute.

Range(Cells(6, ActiveCell.Column), Cells(325,
ActiveCell.Column)).Select
Selection.Copy
Sheets("Master Inventory").Activate
Range("G3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlSubtract,
SkipBlanks _
:=False, Transpose:=False
Range("O1").Select
Sheets("Sales History").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd,
SkipBlanks:= _
False, Transpose:=False
Range("A3").Select
Sheets("Trucks").Select
Range("A9").Select
Application.CutCopyMode = False

I get error message indicating a problem with "range("g3").select

any suggestions?

Thanks


---
~~ Message posted from http://www.ExcelForum.com/

I guess I should have expanded. The error message comes back as
runtime error 1004, select method of range class failed. I should als
mention that this works as a macro but not as VB code imbedded in
command button

--
Message posted from http://www.ExcelForum.com

when put in a command button all unqualified references like

Range("G3").Select

are interpreted to refer to the sheet with the command button. Your intent
is to select on Master Inventory, so that is your problem. Master Inventory
is the active sheet but the code says to select on the sheet with the code -
but you can not select on the sheet with the code because it is not the
activesheet. If you want to use your code as written, move it to a general
module and call it from the CommandButton click event. In a general module
it will work as you expect it to. Otherwise, you would need to fully qualify
all range references to include the sheet.

--
Regards,
Tom Ogilvy

"brwilson" wrote in message
...

Below is the code I am trying to exicute.

Range(Cells(6, ActiveCell.Column), Cells(325,
ActiveCell.Column)).Select
Selection.Copy
Sheets("Master Inventory").Activate
Range("G3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlSubtract,
SkipBlanks _
:=False, Transpose:=False
Range("O1").Select
Sheets("Sales History").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd,
SkipBlanks:= _
False, Transpose:=False
Range("A3").Select
Sheets("Trucks").Select
Range("A9").Select
Application.CutCopyMode = False

I get error message indicating a problem with "range("g3").select

any suggestions?

Thanks


---
~~ Message posted from http://www.ExcelForum.com/