Would this work?

Columns("Q:Q").Select
If Cells.Value = 0 Then GoTo SubErr