Hi Jenny,

Try:

If Range("A1").Value = "dog" Then
'Your code
Else
'Do something else
End If

Or, if case is unimportant:

If LCase(Range(2A1").Value) = "dog" Then


---
Regards,
Norman



"JennyGard" wrote
in message ...

I'm using MS Excel 2000, and I want to write a macro that tests cell
contents. Unfortunately, after a couple hours of looking at help files
(MS Visual Basic 6.0), I have found no method to do so.

My code concept is
If Cellcontents(activecell) = "dog" then
DoSomething
EndIf

This used to be so easy in Lotus 1-2-3...haha, way back in the
pre-Win95 era! Can someone point me on the right track?


--
JennyGard
------------------------------------------------------------------------
JennyGard's Profile:
http://www.excelforum.com/member.php...o&userid=31803
View this thread: http://www.excelforum.com/showthread...hreadid=515272