Findind values in a worksheet and fornatting them

[chrisrowe_cr]

Hi all,

I need a bit of VB code to run off of a button which when clicked will check a list of values (say in the range J2:J30) and format any other cells on the worksheet to say bold blue text and italic that match the range mentioned before.

Can anyone help with this?

[Tom Ogilvy]

Look at the sample code provided with the FindNext method of the range
object (in Excel VBA help). It should be easily adaptable to your
requirement.

--
Regards,
Tom Ogilvy

"chrisrowe_cr" <[email protected]>
wrote in message
news:[email protected]...
>
> Hi all,
>
> I need a bit of VB code to run off of a button which when clicked will
> check a list of values (say in the range J2:J30) and format any other
> cells on the worksheet to say bold blue text and italic that match the
> range mentioned before.
>
> Can anyone help with this?
>
>
> --
> chrisrowe_cr
> ------------------------------------------------------------------------
> chrisrowe_cr's Profile:
http://www.excelforum.com/member.php...o&userid=25220
> View this thread: http://www.excelforum.com/showthread...hreadid=390996
>

[bhofsetz]

Here is a modified version of the find next code Tom is referring to.
Give it a try

Sub FormatFoundValues()
Dim entry As Range, foundentry As Range, firstaddress As String
    For Each entry In Range("J2:J30")
    Set foundentry = Cells.find(what:=entry.Value)
        If Not foundentry Is Nothing Then
            firstaddress = foundentry.Address
            Do
            With foundentry.Font
                .ColorIndex = 5
                .Bold = True
                .Italic = True
            End With
            Set foundentry = Cells.FindNext(After:=foundentry)
            Loop While Not foundentry Is Nothing And foundentry.Address <> firstaddress
        End If
    Next entry
End Sub

HTH