Rafael,

Sub TryNow()
Dim myR As Range
Set myR = Range("A2")

If myR.Value = "" Then
MsgBox Range(myR, myR.End(xlDown)(0)).Rows.Count
Else
MsgBox "No blank rows"
End If
End Sub

HTH,
Bernie
MS Excel MVP


<Rafael Martinez wrote in message ...
Hello, I need to count how many empty cells there are before hitting first cell with data, I guess
there is a way to make a code, macro for this...

Thanks

Rafael

EggHeadCafe - Software Developer Portal of Choice
WCF Workflow Services Using External Data Exchange
http://www.eggheadcafe.com/tutorials...vices-usi.aspx