What causes the application-based error?

[aloha31]

Here is my line of code:

Set totalrng = Worksheets("DO RSH and RSM").Range("B6", Range("P" & Rows.Count).End(xlUp))

Can't see why this would need debugging?

[Richard Buttrey]

What error message are you getting.

Are you able to upload the workbook so that we can see the problem in context?

[Norie]

There's no worksheet reference for the Rangem inside the brackets.

Try this.

With  Worksheets("DO RSH and RSM")
    Set totalrng =.Range("B6", .Range("P" & Rows.Count).End(xlUp))
End With

[aloha31]

  With Worksheets("DO RSH and RSM")
    Set totalrng = .Range("B6", Range("P" & Rows.Count).End(xlUp))
    End With

This is still returning an error. Here's my workbook:RPI_Sheet_NEWregrange.xls

[Norie]

That isn't the code I posted.

[aloha31]

I left out a decimal point... *facepalm* Thanks for keeping me in line, Norie!

[Richard Buttrey]

Hi,

I still can't see why your original code didn't work unless it was inside a WITH statement which wasn't mentioned in your original.

It worked OK for me as a straightforward line of code on its own so I'm still intrigued as to the error you were getting.

[Norie]

Richard

The code would fail if any worksheet other than 'DO RSH and RSM' was active.

The reason for that is that Range("P" & Rows.Count).End(xlUp) refers to the active sheet.