Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With


It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx

Your code works. Make sure the tab names are spelled correctly.
--
Gary''s Student - gsnu200802


" wrote:

Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With


It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx

On Sep 4, 12:29*pm, Gary''s Student
wrote:
Your code works. *Make sure the tab names are spelled correctly.
--
Gary''s Student - gsnu200802



" wrote:
Hi,

I have a weird problem. *I've created a workbook that dozens of sales
people use. *One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

* * With Sheets("Order")
* * * * .Range("A2:V200").Delete

* * * * Sheets("OrderPrep").Range("B3:U29").Copy
* * * * .Range("B1").PasteSpecial xlPasteValues
* * * * .Range("B1").PasteSpecial xlPasteFormats
* * End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. *I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

It's nothign wrong with the workbook, it's gotta be a setting
somewhere. It works fine on 11 other computers.

what's the text of the 1004 error?

--


Gary


wrote in message
...
On Sep 4, 12:29 pm, Gary''s Student
wrote:
Your code works. Make sure the tab names are spelled correctly.
--
Gary''s Student - gsnu200802



" wrote:
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

It's nothign wrong with the workbook, it's gotta be a setting
somewhere. It works fine on 11 other computers.

On Sep 4, 1:00*pm, "Gary Keramidas" <GKeramidasATmsn.com wrote:
what's the text of the 1004 error?

--

Gary

wrote in message

...
On Sep 4, 12:29 pm, Gary''s Student





wrote:
Your code works. Make sure the tab names are spelled correctly.
--
Gary''s Student - gsnu200802

" wrote:
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

It's nothign wrong with the workbook, it's gotta be a setting
somewhere. *It works fine on 11 other computers.- Hide quoted text -

- Show quoted text -

"Error #1004: Merged Cells must be identically sized"

works here, i know you can get a 1004 error if the sheet's protected, but you
say it runs on other pc's.

--


Gary


wrote in message
...
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With


It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx

Might be that the personal.xls on one of the computers is somehow screwing
things up??
--
Gary''s Student - gsnu200802


"Gary Keramidas" wrote:

works here, i know you can get a 1004 error if the sheet's protected, but you
say it runs on other pc's.

--


Gary


wrote in message
...
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With


It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx

On Sep 4, 1:08*pm, Gary''s Student
wrote:
Might be that the personal.xls on one of the computers is somehow screwing
things up??
--
Gary''s Student - gsnu200802



"Gary Keramidas" wrote:
works here, i know you can get a 1004 error if the sheet's protected, but you
say it runs on other pc's.

--

Gary

wrote in message
....
Hi,

I have a weird problem. *I've created a workbook that dozens of sales
people use. *One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

* *With Sheets("Order")
* * * *.Range("A2:V200").Delete

* * * *Sheets("OrderPrep").Range("B3:U29").Copy
* * * *.Range("B1").PasteSpecial xlPasteValues
* * * *.Range("B1").PasteSpecial xlPasteFormats
* *End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. *I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

Just chcked and there's nothing unusual being loaded from the
XLSTARTUP, etc folders.

Also, I tried to run the code as if I was doing it manually (selected
some cells, went to a new sheet, edit, paste special) and it gave me
the same error. So it's most definately not the code but rather
something in that particular instance of excel.

there must be a merged cell on the order sheet. put a breakpoint on this line
Sheets("OrderPrep").Range("B3:U29").Copy

and see if there is a merged cell in the are you're trying to copy to.

--


Gary


wrote in message
...
On Sep 4, 1:08 pm, Gary''s Student
wrote:
Might be that the personal.xls on one of the computers is somehow screwing
things up??
--
Gary''s Student - gsnu200802



"Gary Keramidas" wrote:
works here, i know you can get a 1004 error if the sheet's protected, but
you
say it runs on other pc's.

--

Gary

wrote in message
...
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

Just chcked and there's nothing unusual being loaded from the
XLSTARTUP, etc folders.

Also, I tried to run the code as if I was doing it manually (selected
some cells, went to a new sheet, edit, paste special) and it gave me
the same error. So it's most definately not the code but rather
something in that particular instance of excel.

or try this
.Range("A2:V200").Clear
instead of
..Range("A2:V200").Delete

--


Gary


wrote in message
...
On Sep 4, 1:08 pm, Gary''s Student
wrote:
Might be that the personal.xls on one of the computers is somehow screwing
things up??
--
Gary''s Student - gsnu200802



"Gary Keramidas" wrote:
works here, i know you can get a 1004 error if the sheet's protected, but
you
say it runs on other pc's.

--

Gary

wrote in message
...
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

Just chcked and there's nothing unusual being loaded from the
XLSTARTUP, etc folders.

Also, I tried to run the code as if I was doing it manually (selected
some cells, went to a new sheet, edit, paste special) and it gave me
the same error. So it's most definately not the code but rather
something in that particular instance of excel.

On Sep 4, 2:30*pm, "Gary Keramidas" <GKeramidasATmsn.com wrote:
or try this
*.Range("A2:V200").Clear
instead of
.Range("A2:V200").Delete

--

Gary

wrote in message

...
On Sep 4, 1:08 pm, Gary''s Student





wrote:
Might be that the personal.xls on one of the computers is somehow screwing
things up??
--
Gary''s Student - gsnu200802

"Gary Keramidas" wrote:
works here, i know you can get a 1004 error if the sheet's protected, but
you
say it runs on other pc's.

--

Gary

wrote in message
....
Hi,

I have a weird problem. I've created a workbook that dozens of sales
people use. One laptop, which is the exact same configuration as all
of the others, is having a problem running my code.

With Sheets("Order")
.Range("A2:V200").Delete

Sheets("OrderPrep").Range("B3:U29").Copy
.Range("B1").PasteSpecial xlPasteValues
.Range("B1").PasteSpecial xlPasteFormats
End With

It's not this specific piece of code; it happens with EVERY
pastespecial that this laptop runs. I can't figure it out!

any suggestions?

thx- Hide quoted text -

- Show quoted text -

Just chcked and there's nothing unusual being loaded from the
XLSTARTUP, etc folders.

Also, I tried to run the code as if I was doing it manually (selected
some cells, went to a new sheet, edit, paste special) and it gave me
the same error. *So it's most definately not the code but rather
something in that particular instance of excel.- Hide quoted text -

- Show quoted text -

I fixed it. The solution is simple, the reason who the hell knows.


Instead of using PasteSpecial, I just combined it into one command

with Sheets("OrderPrep")
..Range("B3:U29").Copy .Range("B1")
end with