Hello,
I saw many post in this newsgroup about row highlighting,
this code written by jemcgimpsey I found in this newsgroup works well:

-----------
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices(256) As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
For i=1 to 256
Cells(oldRange.row, i).Interior.ColorIndex=colorIndices(i)
Next i
End If
For i = 1 to UBound(colorIndices)
colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex
Next i
ActiveCell.EntireRow.Interior.ColorIndex=15
Set oldRange=ActiveCell.EntireRow
End Sub
----------

Now I need your help because I'd like to to have highlighted only the
cell on coloumn "A" - not the entire Row.
I'm sure you Excel experts can easly change this code, I'd be greatful
if
somebody can help me.

Thanks,
Ale.

Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
Cells(oldRange.row, 1).Interior.ColorIndex=colorIndices
End If
colorIndices=Cells(Target(1).row,1).Interior.Color Index
cells(Target(1).Row,1).Interior.ColorIndex=15
Set oldRange=Cells(Target(1).Row,1)
End Sub

--
Regards,
Tom Ogilvy


"Alex" wrote in message
om...
Hello,
I saw many post in this newsgroup about row highlighting,
this code written by jemcgimpsey I found in this newsgroup works well:

-----------
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices(256) As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
For i=1 to 256
Cells(oldRange.row, i).Interior.ColorIndex=colorIndices(i)
Next i
End If
For i = 1 to UBound(colorIndices)
colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex
Next i
ActiveCell.EntireRow.Interior.ColorIndex=15
Set oldRange=ActiveCell.EntireRow
End Sub
----------

Now I need your help because I'd like to to have highlighted only the
cell on coloumn "A" - not the entire Row.
I'm sure you Excel experts can easly change this code, I'd be greatful
if
somebody can help me.

Thanks,
Ale.

THANKS FROM ITALY.
IT WORKS GREAT, THANK YOU AGAIN FRIEND,

Ale.


"Tom Ogilvy" wrote in message ...
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
Cells(oldRange.row, 1).Interior.ColorIndex=colorIndices
End If
colorIndices=Cells(Target(1).row,1).Interior.Color Index
cells(Target(1).Row,1).Interior.ColorIndex=15
Set oldRange=Cells(Target(1).Row,1)
End Sub

--
Regards,
Tom Ogilvy