Macro to check Entire Column Q for 0 and stop macro

something like this

 Dim CellPtr As Long
 
 For CellPtr = 1 To Cells(Rows.Count, "Q").End(xlUp).Row
    If Cells(CellPtr, "Q").Value = 0 Then Exit For
 Next
End Su