Number Of Rows with Data

[billandrew]

Afternoon

Using the below to return the Number of Rows in Column B. The Column currently does not have any data, when the code is run the result is 1. Not sure why this is.

Sub CountRowsColumn()

MsgBox "Number of Rows with data in Column b is" & " " & Cells(Rows.Count, 2).End(xlUp).Row

 

[MARK858]

Hmmm, can you run again with the code below please? (and is the sheetname correct?)

Sub test2()
MsgBox Split(Cells(Rows.Count, 2).End(xlUp).Address(external:=True), "]")(1)
End Sub

 

[billandrew]

Now the result is Sheet3!$B$1

 

[MARK858]

Just one last question for tonight, does the below return nothing?

Sub test3()
MsgBox Cells(Rows.Count, 2).End(xlUp).FormulaR1C1
End Sub

 

[billandrew]

Yes it does.

Like to sincerely Thank You and the others who devoted many hours of instruction......

Cheers