What is wrong with this line of code

[dpaton05]

I am trying to dim rng as the range of the all the lines from row 4 down

Dim rng As Range: rng = range(("A4"),(O & (("A4").End(xlUp).row)))

It has an error but I can't seem to see where the error is, can someone help me please?

 

[Michael M]

What range are you trying to cover with that statement ??

 

[dpaton05]

Have a look at this thread Michael. I was trying to solve little bits at a time of this problem.

Applying a message box to each row if there are more than 1

I have got a spreadsheet that has an autofilter that filters jobs based on date and request number. If there are more than 1 result, I want the spreadsheet to zoom in and highlight the first result/row and ask if this is the job that needs to have the Late Cancel pricing, applied to it, if No is...

www.mrexcel.com

 

[Michael M]

Is this what your after ?

Dim rng As Range: rng = Range("A4:O" & Cells(Rows.Count, "O").End(xlUp).Row)

 

[dpaton05]

Thanks Michael, with that line of code, I get the error Object variable or with block variable not set with the following part highlighted.

: rng = Range("A4:O" & Cells(Rows.Count, "O").End(xlUp).Row)

 

[Michael M]

Forgot the Set

Sub MM1()
Dim rng As Range: Set rng = Range("A4:O" & Cells(Rows.Count, "O").End(xlUp).Row)
End Sub

 

[dpaton05]

Thanks Michael, thought I would write the extended version so I understand it better.

                                Dim LastRow As Long
                                LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
                                Dim rng As Range: Set rng = ws.Range("A4:O" & LastRow)

 

[Michael M]

Ok...whatever works best for you !