Mykasd
07-06-2007, 06:44 AM
how do you reference an empty cell?
Dim Ctontact Num As Integer, EmptyCellCount As Integer
EmptyCellCount = 0
For j = 1 To ContactNum
If Range("A1").Offset(j, 0) Is EmptyCell Then
EmptyCellCount = EmptyCellCount + 1
End If
Next j
thank you!
Dim Ctontact Num As Integer, EmptyCellCount As Integer
EmptyCellCount = 0
For j = 1 To ContactNum
If Range("A1").Offset(j, 0) Is EmptyCell Then
EmptyCellCount = EmptyCellCount + 1
End If
Next j
thank you!