Error 13 type mismatch

Any ideas why this line is bringing up the Type 13 Error?

Do While ActiveCell.Value = Empty

I've tried it like this as well:

Do While ActiveCell = Empty