Macro line to check if column is blank

[aa2000]

Hi guys

In my project, I only want a certain If command to run in a particular column has at least one non blank cell in it. So if column J has a value in it, then I want this If command to run.

I tried the following code but got runtime error 13:

If Columns(10) <> "" Then
    If... Then...
End If

Is there a way of getting the first If command to check if the column is blank before running the next If?

Thanks

 

[villy]

Try:

Sub Check()
 
If IsEmpty(cells(1,1)) then ...
 
End Sub

 

[VoG]

Try

If WorksheetFunction.CountA(Columns(10)) <> 0 Then

 

[aa2000]

Thanks for the quick response Villy. Correct me if I'm wrong, but does this code check if the cell is empty then calls the If command?

Is it possible to call the If command only if column J has values in it?

Thanks

 

[aa2000]

Thanks Peter! That worked perfectly.

Cheers

 

[villy]

Sub Check()
 
If Not IsEmpty(Columns(10)) then ...
 
End Sub