Hint about VBA functions

[Cavaliere]

Hi everybody,

Is there any function in VB that represents the following loop

[vba]
w = 0
For k = 1 To ActiveSheet.UsedRange.Columns.Count
If ActiveSheet.Cells(2, k) = Empty Then
w = w + 1
End If
Next k

if w < ActiveSheet.UsedRange.Columns.Count then
MsgBox "Row is not Empty"
[/vba]

Thanks in advance

[mdmackillop]

[VBA]Dim Rng As Range, msg As String
With ActiveSheet
Set Rng = Intersect(.Rows(2), .UsedRange)
If Application.CountA(Rng) < Rng.Cells.Count Then
msg = "Not empty"
Else
msg = "Empty"
End If
End With
MsgBox msg
[/VBA]

[Cavaliere]

Thanks for help