Dim cell
For Each cell In Selection
If cell = "" Then
cell.FillDown
End If
Next cell
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
or
Dim cell as range
For Each cell In Selection
If cell = "" Then
cell.Value = cell(0).value
End If
Next cell
If you meant formulas as well, then change value in the above to formula
Regards,
Tom Ogilvy
snax...@my-deja.com wrote in message <835lv6$562$1...@nnrp1.deja.com>...