Greetings! In over 300 executions, the following code never failed nor
displayed a message:

' The follwg instructions will delete the first 28 rows:

Application.Goto Reference:="R1:R28"
Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

Range("R1:R28").Delete Shift:=xlUp

two out of three executions caused the following message to display: "This
Operation will cause some merged cells to unmerge; Do you wish to continue?"

The two sets of code seem to provide the same function. What could be wrong
with "Range("R1:R28").Delete Shift:=xlUp"? Thanks in advance for your help.
--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick

Greetings! I forgot to add that after I got the two out of three "failures"
with the revised code, I then executed the original code on the same data
with no problems.
--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick


"MichaelDavid" wrote:

Greetings! In over 300 executions, the following code never failed nor
displayed a message:

' The follwg instructions will delete the first 28 rows:

Application.Goto Reference:="R1:R28"
Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

Range("R1:R28").Delete Shift:=xlUp

two out of three executions caused the following message to display: "This
Operation will cause some merged cells to unmerge; Do you wish to continue?"

The two sets of code seem to provide the same function. What could be wrong
with "Range("R1:R28").Delete Shift:=xlUp"? Thanks in advance for your help.
--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick

Hi Michael

It seems that


* * * *Application.Goto Reference:="R1:R28"

is selecting entire rows 1:28 not only column R row 1:28, thus merged
cells is selected and will be deleted at once.

* * * *Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

* * * Range("R1:R28").Delete Shift:=xlUp

The code above is only deleting the stated range, thus cells in the
range merged with cells in other columns will cause the error!

Hopes that helps

Regards,
Per

Greetings! Thanks for your help. What then would be the quickest way of
deleting entire rows 1 through 28? Thanks in advance.
--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick


"Per Jessen" wrote:

Hi Michael

It seems that


Application.Goto Reference:="R1:R28"

is selecting entire rows 1:28 not only column R row 1:28, thus merged
cells is selected and will be deleted at once.

Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

Range("R1:R28").Delete Shift:=xlUp

The code above is only deleting the stated range, thus cells in the
range merged with cells in other columns will cause the error!

Hopes that helps

Regards,
Per

Greetings! I browsed around in Google, and saw a possible solution. Perhaps
something like

Range("R1:R28").EntireRow.Delete Shift:=xlUp might work. This statement does
compile without error. I will try to execute it later on today.

--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick


"Per Jessen" wrote:

Hi Michael

It seems that


Application.Goto Reference:="R1:R28"

is selecting entire rows 1:28 not only column R row 1:28, thus merged
cells is selected and will be deleted at once.

Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

Range("R1:R28").Delete Shift:=xlUp

The code above is only deleting the stated range, thus cells in the
range merged with cells in other columns will cause the error!

Hopes that helps

Regards,
Per