highlight activecell

I have huge database, which other colleagues view regularly.

and I wondered if there is a way to highlight the activerow to make it easy
to read?

Option Explicit

'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With

.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.





--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"flow23" <flow23@discussions.microsoft.com> wrote in message
news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> I have huge database, which other colleagues view regularly.
>
> and I wondered if there is a way to highlight the activerow to make it
easy
> to read?
>
>

for some reason.. nothing is happening??
I have Excel 2000. would that make any difference?


"Bob Phillips" wrote:

> Option Explicit
>
> '----------------------------------------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> '----------------------------------------------------------------
> Cells.FormatConditions.Delete
> With Target
> With .EntireRow
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 5
> End With
> With .Borders(xlBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 5
> End With
> .Interior.ColorIndex = 20
> End With
> End With
>
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 36
> End With
>
> End Sub
>
> 'This is worksheet event code, which means that it needs to be
> 'placed in the appropriate worksheet code module, not a standard
> 'code module. To do this, right-click on the sheet tab, select
> 'the View Code option from the menu, and paste the code in.
>
>
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "flow23" <flow23@discussions.microsoft.com> wrote in message
> news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > I have huge database, which other colleagues view regularly.
> >
> > and I wondered if there is a way to highlight the activerow to make it
> easy
> > to read?
> >
> >
>
>
>

No, it shouldn't. Did you put it in the sheet code module as instructed?

Go to the immediate window and type

Application.EnableEvents = True

and try again.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"flow23" <flow23@discussions.microsoft.com> wrote in message
news:55111527-466C-4299-AB62-FA68B4BABB8F@microsoft.com...
> for some reason.. nothing is happening??
> I have Excel 2000. would that make any difference?
>
>
> "Bob Phillips" wrote:
>
> > Option Explicit
> >
> > '----------------------------------------------------------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > '----------------------------------------------------------------
> > Cells.FormatConditions.Delete
> > With Target
> > With .EntireRow
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlTop)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 5
> > End With
> > With .Borders(xlBottom)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 5
> > End With
> > .Interior.ColorIndex = 20
> > End With
> > End With
> >
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 36
> > End With
> >
> > End Sub
> >
> > 'This is worksheet event code, which means that it needs to be
> > 'placed in the appropriate worksheet code module, not a standard
> > 'code module. To do this, right-click on the sheet tab, select
> > 'the View Code option from the menu, and paste the code in.
> >
> >
> >
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from email address if mailing direct)
> >
> > "flow23" <flow23@discussions.microsoft.com> wrote in message
> > news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > > I have huge database, which other colleagues view regularly.
> > >
> > > and I wondered if there is a way to highlight the activerow to make it
> > easy
> > > to read?
> > >
> > >
> >
> >
> >

thanks
I found out.. I put it in workbook.. not worksheet
many thanks


"flow23" wrote:

> I have huge database, which other colleagues view regularly.
>
> and I wondered if there is a way to highlight the activerow to make it easy
> to read?
>
>

Bob,

I attempted a version of this that would highlight both active row AND
column, but I get the message "Application defined or Object defined error"
at the line marked with an asterisk.
Any idea why?
Thanks in advance
Pete

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 20
End With
'-------------------------------------------------------------------------
With Target.EntireColumn
* .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


"Bob Phillips" wrote:

> Option Explicit
>
> '----------------------------------------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> '----------------------------------------------------------------
> Cells.FormatConditions.Delete
> With Target
> With .EntireRow
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 5
> End With
> With .Borders(xlBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 5
> End With
> .Interior.ColorIndex = 20
> End With
> End With
>
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 36
> End With
>
> End Sub
>
> 'This is worksheet event code, which means that it needs to be
> 'placed in the appropriate worksheet code module, not a standard
> 'code module. To do this, right-click on the sheet tab, select
> 'the View Code option from the menu, and paste the code in.
>
>
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "flow23" <flow23@discussions.microsoft.com> wrote in message
> news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > I have huge database, which other colleagues view regularly.
> >
> > and I wondered if there is a way to highlight the activerow to make it
> easy
> > to read?
> >
> >
>
>
>

Hi Peter,

Before adding conditions to the column, you have to delete any existing
conditions (the intersect will have one), then it works. It also looks
better IMO to highlight the activecell differently when you do both row and
column

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 20
End With

'-------------------------------------------------------------------------
With Target.EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 10
End With
End With
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 20
End With

With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
news:50B61611-7383-4023-8E14-06BA63609FA4@microsoft.com...
> Bob,
>
> I attempted a version of this that would highlight both active row AND
> column, but I get the message "Application defined or Object defined
error"
> at the line marked with an asterisk.
> Any idea why?
> Thanks in advance
> Pete
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Cells.FormatConditions.Delete
> With Target.EntireRow
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> With .Borders(xlBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> End With
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 20
> End With
>
'-------------------------------------------------------------------------
> With Target.EntireColumn
> * .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlLeft)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> With .Borders(xlRight)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> End With
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 20
> End With
>
> End Sub
>
>
> "Bob Phillips" wrote:
>
> > Option Explicit
> >
> > '----------------------------------------------------------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > '----------------------------------------------------------------
> > Cells.FormatConditions.Delete
> > With Target
> > With .EntireRow
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlTop)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 5
> > End With
> > With .Borders(xlBottom)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 5
> > End With
> > .Interior.ColorIndex = 20
> > End With
> > End With
> >
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 36
> > End With
> >
> > End Sub
> >
> > 'This is worksheet event code, which means that it needs to be
> > 'placed in the appropriate worksheet code module, not a standard
> > 'code module. To do this, right-click on the sheet tab, select
> > 'the View Code option from the menu, and paste the code in.
> >
> >
> >
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from email address if mailing direct)
> >
> > "flow23" <flow23@discussions.microsoft.com> wrote in message
> > news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > > I have huge database, which other colleagues view regularly.
> > >
> > > and I wondered if there is a way to highlight the activerow to make it
> > easy
> > > to read?
> > >
> > >
> >
> >
> >

I tried Bob's code straight away and it worked super fine......

Here's a little variation to highlight the cell in a different way.....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearComments
With Target
.AddComment.Visible = True
.Comment.Text ("Edit Me")
End With
End Sub

Vaya con Dios,
Chuck, CABGx3



"flow23" <flow23@discussions.microsoft.com> wrote in message
news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> I have huge database, which other colleagues view regularly.
>
> and I wondered if there is a way to highlight the activerow to make it
easy
> to read?
>
>

Reply, that's a good idea for another post I answered, where the guy wanted
formula cells highlighted.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"CLR" <croberts@tampabay.rr.com> wrote in message
news:eIVHaJoNGHA.1288@TK2MSFTNGP09.phx.gbl...
> I tried Bob's code straight away and it worked super fine......
>
> Here's a little variation to highlight the cell in a different way.....
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Cells.ClearComments
> With Target
> .AddComment.Visible = True
> .Comment.Text ("Edit Me")
> End With
> End Sub
>
> Vaya con Dios,
> Chuck, CABGx3
>
>
>
> "flow23" <flow23@discussions.microsoft.com> wrote in message
> news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > I have huge database, which other colleagues view regularly.
> >
> > and I wondered if there is a way to highlight the activerow to make it
> easy
> > to read?
> >
> >
>
>

Bob,

That works fine - thanks for responding to me interrupting someone else's
thread!

Pete




"Bob Phillips" wrote:

> Hi Peter,
>
> Before adding conditions to the column, you have to delete any existing
> conditions (the intersect will have one), then it works. It also looks
> better IMO to highlight the activecell differently when you do both row and
> column
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Cells.FormatConditions.Delete
> With Target.EntireRow
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> With .Borders(xlBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> End With
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 20
> End With
>
> '-------------------------------------------------------------------------
> With Target.EntireColumn
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> With .FormatConditions(1)
> With .Borders(xlLeft)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> With .Borders(xlRight)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = 10
> End With
> End With
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 20
> End With
>
> With Target
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 36
> End With
>
> End Sub
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> news:50B61611-7383-4023-8E14-06BA63609FA4@microsoft.com...
> > Bob,
> >
> > I attempted a version of this that would highlight both active row AND
> > column, but I get the message "Application defined or Object defined
> error"
> > at the line marked with an asterisk.
> > Any idea why?
> > Thanks in advance
> > Pete
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Cells.FormatConditions.Delete
> > With Target.EntireRow
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlTop)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > With .Borders(xlBottom)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > End With
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 20
> > End With
> >
> '-------------------------------------------------------------------------
> > With Target.EntireColumn
> > * .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlLeft)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > With .Borders(xlRight)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > End With
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 20
> > End With
> >
> > End Sub
> >
> >
> > "Bob Phillips" wrote:
> >
> > > Option Explicit
> > >
> > > '----------------------------------------------------------------
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > '----------------------------------------------------------------
> > > Cells.FormatConditions.Delete
> > > With Target
> > > With .EntireRow
> > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > With .FormatConditions(1)
> > > With .Borders(xlTop)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 5
> > > End With
> > > With .Borders(xlBottom)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 5
> > > End With
> > > .Interior.ColorIndex = 20
> > > End With
> > > End With
> > >
> > > .FormatConditions.Delete
> > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > .FormatConditions(1).Interior.ColorIndex = 36
> > > End With
> > >
> > > End Sub
> > >
> > > 'This is worksheet event code, which means that it needs to be
> > > 'placed in the appropriate worksheet code module, not a standard
> > > 'code module. To do this, right-click on the sheet tab, select
> > > 'the View Code option from the menu, and paste the code in.
> > >
> > >
> > >
> > >
> > >
> > > --
> > > HTH
> > >
> > > Bob Phillips
> > >
> > > (remove nothere from email address if mailing direct)
> > >
> > > "flow23" <flow23@discussions.microsoft.com> wrote in message
> > > news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > > > I have huge database, which other colleagues view regularly.
> > > >
> > > > and I wondered if there is a way to highlight the activerow to make it
> > > easy
> > > > to read?
> > > >
> > > >
> > >
> > >
> > >
>
>
>

I don't think anyone minds <vbg>

Bob


"Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
news:60888655-4D27-4933-80E5-BB043F0F167C@microsoft.com...
> Bob,
>
> That works fine - thanks for responding to me interrupting someone else's
> thread!
>
> Pete
>
>
>
>
> "Bob Phillips" wrote:
>
> > Hi Peter,
> >
> > Before adding conditions to the column, you have to delete any existing
> > conditions (the intersect will have one), then it works. It also looks
> > better IMO to highlight the activecell differently when you do both row
and
> > column
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Cells.FormatConditions.Delete
> > With Target.EntireRow
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlTop)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > With .Borders(xlBottom)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > End With
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 20
> > End With
> >
> >
'-------------------------------------------------------------------------
> > With Target.EntireColumn
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > With .FormatConditions(1)
> > With .Borders(xlLeft)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > With .Borders(xlRight)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = 10
> > End With
> > End With
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 20
> > End With
> >
> > With Target
> > .FormatConditions.Delete
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 36
> > End With
> >
> > End Sub
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove nothere from email address if mailing direct)
> >
> > "Peter Rooney" <PeterRooney@discussions.microsoft.com> wrote in message
> > news:50B61611-7383-4023-8E14-06BA63609FA4@microsoft.com...
> > > Bob,
> > >
> > > I attempted a version of this that would highlight both active row AND
> > > column, but I get the message "Application defined or Object defined
> > error"
> > > at the line marked with an asterisk.
> > > Any idea why?
> > > Thanks in advance
> > > Pete
> > >
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > Cells.FormatConditions.Delete
> > > With Target.EntireRow
> > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > With .FormatConditions(1)
> > > With .Borders(xlTop)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 10
> > > End With
> > > With .Borders(xlBottom)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 10
> > > End With
> > > End With
> > > .FormatConditions.Delete
> > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > .FormatConditions(1).Interior.ColorIndex = 20
> > > End With
> > >
> >
'-------------------------------------------------------------------------
> > > With Target.EntireColumn
> > > * .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > With .FormatConditions(1)
> > > With .Borders(xlLeft)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 10
> > > End With
> > > With .Borders(xlRight)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = 10
> > > End With
> > > End With
> > > .FormatConditions.Delete
> > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > .FormatConditions(1).Interior.ColorIndex = 20
> > > End With
> > >
> > > End Sub
> > >
> > >
> > > "Bob Phillips" wrote:
> > >
> > > > Option Explicit
> > > >
> > > > '----------------------------------------------------------------
> > > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > > '----------------------------------------------------------------
> > > > Cells.FormatConditions.Delete
> > > > With Target
> > > > With .EntireRow
> > > > .FormatConditions.Add Type:=xlExpression,
Formula1:="TRUE"
> > > > With .FormatConditions(1)
> > > > With .Borders(xlTop)
> > > > .LineStyle = xlContinuous
> > > > .Weight = xlThin
> > > > .ColorIndex = 5
> > > > End With
> > > > With .Borders(xlBottom)
> > > > .LineStyle = xlContinuous
> > > > .Weight = xlThin
> > > > .ColorIndex = 5
> > > > End With
> > > > .Interior.ColorIndex = 20
> > > > End With
> > > > End With
> > > >
> > > > .FormatConditions.Delete
> > > > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > > > .FormatConditions(1).Interior.ColorIndex = 36
> > > > End With
> > > >
> > > > End Sub
> > > >
> > > > 'This is worksheet event code, which means that it needs to be
> > > > 'placed in the appropriate worksheet code module, not a standard
> > > > 'code module. To do this, right-click on the sheet tab, select
> > > > 'the View Code option from the menu, and paste the code in.
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > --
> > > > HTH
> > > >
> > > > Bob Phillips
> > > >
> > > > (remove nothere from email address if mailing direct)
> > > >
> > > > "flow23" <flow23@discussions.microsoft.com> wrote in message
> > > > news:733E2725-09F9-4D12-A231-AA59817B1054@microsoft.com...
> > > > > I have huge database, which other colleagues view regularly.
> > > > >
> > > > > and I wondered if there is a way to highlight the activerow to
make it
> > > > easy
> > > > > to read?
> > > > >
> > > > >
> > > >
> > > >
> > > >
> >
> >
> >