active.Cell compile error

[forestPeterson]

[SOLVED]

This code results in "compile error: expected function or variable"

Sub activeCell()
'
' activeCell Macro
'
' Keyboard Shortcut: Ctrl+m
'
    Do
    activeCell.Activate
    activeCell.Offset(1, 0).Select
    Loop Until IsEmpty(activeCell.Offset(1, 0))
    
End Sub

I think something changed because another macro that worked an hour ago now returns the same error