highlighting only the currently selected cell, until i click off o

[blind chris]

scenario: i have to write down vendor id numbers on paper requests
numbers are 10 digits long and very similar to each other
the numbers are in one column, next column has the vendor names that the
number corresponds to.

since all the numbers are so similar. sometimes i write down the wrong
numbers when im in a hurry or if i dont put my finger directly on the monitor
(to reference wich number im copying down)

question: when i click on a cell. is there a way to make that cell stand out
in any way TEMPORARILY. (highlighted, change color, border etc) ... but just
until i click the next cell i need to write down. so the change cant be
permanent (so no formatting)

 

[Jim Thomlinson]

Chip Pearson has a row liner addin that works very well for what you are
asking...

http://www.cpearson.com/excel/RowLiner.htm

 

[Don Guillett]

A couple of ideas. use one or the other

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
With ActiveCell.Font
If .Size = 10 Then
..Size = 20
Else
..Size = 10
End If
End With
Application.EnableEvents = True
End Sub
=======
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EnableEvents = False
If ActiveWindow.Zoom = 100 Then
ActiveWindow.Zoom = 150
Else
ActiveWindow.Zoom = 100
End If
Application.EnableEvents = True
End Sub

 

[L. Howard Kittle]

Chip's row liner will probably do fine for you, it really draws your
attention to the active cell.

You can also try this, where you click on any of your ID numbers and it
alone is displayed in a message box on the worksheet. Hit OK to make go
away.

Copy and paste in your worksheet vb module.
Change the column 5 to suit your sheet needs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Dim i As Variant
i = ActiveCell.Value
MsgBox i
End Sub

HTH
Regards,
Howard

 

[Tim]

Chris,

Right click on the Tab of your worksheet and Paste this simple Worksheet
event:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 6

End Sub