Sub ABC()
Dim rng3 as Range, rng5 as Range
set rng3 = Range("B2")
set rng5 = Range("D2")
If rng3 = "Shane" then
rng5.value = "Private"
else
rng5.value = "Public"
End if
End Sub


or if by Named you mean

Sub ABC()
if Range("rng3").Value = "Shane" then
Range("rng5").Value = "Private"
else
range("rng5").Value = "Public"
end if
End Sub


--
Regards,
Tom Ogilvy

"ivory_kitten" wrote in message
...
I want to set cell D2 (named rng5) to a certain text value if cell B2
(named
rng3) equals a certain value.

Eg:

If rng3 = Shane then rng5 value to be set to "Private", else rng5 value to
be set to "Public"

Any help appreciated, thanks!