From Microsoft training on Loops. Copied the following Do While Loop:

Sub CountRows()

x=ActiveCell.Rpw
y=ActiveCell.Column
z=0

Do While Cells(x,y).Value < ""
x=x+1
z=z+1
Loop

MsgBox "There are "& z &" rows in the current range."
End Sub

Microsoft Visual Basic flaged MsgBox in red and stated, "Expected:end of
statement"
What is wrong?