Sub test()
Dim allcells As Range, cell As Range
For Each cell In Range("a2:a100") 'a1 = error :)
If cell.Value = "" Then
cell.Value = cell.Offset(-1, 0).Value
End If
Next
End Sub

acces


---
Message posted from http://www.ExcelForum.com/