Times up <g
use isempty to test if a cell is empty or ="" or len(trim(cell)) = 0
--
Regards,
Tom Ogilvy
Tom Ogilvy wrote in message
...
Any thoughts on what could be contained in a worksheet that would make
this
true:
IsNull(v(i, 1))
--
Regards,
Tom Ogilvy
mudraker wrote in message
...
I have removed the do loop & replaced it with a single command to find
the nextr blank cell on sheet 1 column c
Sub copyRange()
Dim v As Variant
Dim i As Integer
Dim intRow As Integer
v = Sheets(2).Range("C50:C70")
For i = LBound(v) To UBound(v)
If Not IsNull(v(i, 1)) Then
intRow = Sheets(1).Range("c65536").End(xlUp).Row + 1
Sheets(1).Cells(intRow, 3) = v(i, 1)
intRow = intRow + 1
End If
Next
End Sub
---
Message posted from http://www.ExcelForum.com/