CountBlank is not a VB function, it is a worksheet function, so you have to
specify that...

If WorksheetFunction.CountBlank(ActiveCell.Resize(1, 19)) 0 Then

--
Rick (MVP - Excel)


"Alberto Ast" wrote in message
...
How do I use countblank in a macro, I got as follows but it gives me an
error

Sub Clear()
If CountBlank(ActiveCell.Resize(1, 19)) 0 Then
Range("A1").Select
Else
Range("B1").Select
End If
End Sub