Stuart,

Keep in mind that one cells right border is the next cells left border.
Visually they look the same...

--
sb
"Stuart" wrote in message
...
Didn't post with all relevent information, sorry.
I have:

Const SEARCHFOR As Variant = "£"
Dim ws As Worksheet, C As Range
and

For Each C In Intersect(Range("F:F"), ActiveSheet.UsedRange)
If C.Value = SEARCHFOR Then
C.Offset(-1, -2) _
.Borders(xlEdgeRight).LineStyle = xlNone
End If
Next

Your confirmation made me look elsewhere.....
should have been:

For Each C In Intersect(.Range ie a Full stop/Period
was missing.

Regards and thanks.


"Bob Phillips" wrote in message
...
Stuart,

This works for me

If c.Value = "SEARCHFOR" Then _
c.Offset(-1, -2) _
.Borders(xlEdgeRight).LineStyle = xlNone

that is, looking for the text SEARCHFOR, so in quotes, and a
continuation
mark after Then as you have no EndIf. Also, c needs to be a range
object.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Stuart" wrote in message
...
Why might the following not be removing the Right border,
please?

If C.Value = SEARCHFOR Then
C.Offset(-1, -2) _
.Borders(xlEdgeRight).LineStyle = xlNone

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.522 / Virus Database: 320 - Release Date: 29/09/2003






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.522 / Virus Database: 320 - Release Date: 29/09/2003