Bom dia!!
Tente um loop´
Sub AleVBA_15864()
Dim MyCell, Rng As Range
Dim lCount As Long
lCount = WorksheetFunction.CountA(Range(Cells(44, 1), Cells(51, 1)))
Set Rng = Sheets("ATA").Range("A44:A51")
For Each MyCell In Rng
If MyCell <> "" Then
Call Cadastro 'Aqui vai sua Macro
Else
Exit Sub
End If
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/05/2015 7:12 am