countblank

[Alberto Ast]

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

 

[Rick Rothstein]

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

 

[Alberto Ast]

Thanks Rick... it worked perfect...

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