VBA How do I do a counta?

[hellfire45]

I want to do an If statement that will check the counta of a row of data. So, if row 2 counta does not equal 13 then exit sub

something like

If worksheet("sheet name").counta.row("2").value <> 13 then
Exit sub
end if

can anybody help me figure out how to use the CountA function in VBA? Thank you!

 

[vds1]

Try,

[COLOR=#0000cd]If[/COLOR] Evaluate("COUNTA(Sheet1!2:2)") <> 13 [COLOR=#0000cd]Then[/COLOR]
[COLOR=#0000cd]    Exit Sub[/COLOR]
[COLOR=#0000cd]End If[/COLOR]

 

[pgc01]

Hi

Using your code:

If Application.WorksheetFunction.CountA(Worksheets("Sheet4").Rows(2)) <> 13 Then
    Exit Sub
End If

 

[hellfire45]

you guys are the best. Thanks!