i've done this kind of thing a thousand times, but i can't get this
one to work.........
'===========================
Dim cell as Range

myLastSusanRow = ws3.Cells(10000, 1).End(xlUp).Row + 1
Set rSusan = ws3.Range("a2:a" & myLastSusanRow)

For Each cell In rSusan
If cell.Value = Me.txtBook.Value Then
'minor stuff
Else
'do nothing
End If
Next cell
'=========================
the intellisense will give me the correct information for
me.txtBook.Value, but gives me nothing for cell.value. i've tried
cell.text, that does nothing. the intellisense only works if i just
use "cell", but the comparison doesn't work. i've put in a
msgbox cell.value
test and that gives me the correct information.
the cell range is on Sheet3, and the txtBook textbox is on Sheet2.
the code is held in the Sheet2 area, not in a general module. i'm
using XP 2000xl.
i know it's something minor & stupid, but what am i doing wrong?
thanks in advance!
:)
susan