I have searched and cannot find an answer. I am using Excel 2000 and
would like to create a function that will highlight a column heading in
row three if the current cell is in that particular column. Let's say I
have 10 columns. If I am at a cell in any row in column 2, then
highlight cell B2 else leave white. Is this possible via vba? How?

Hi C,

Try:
'=============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("B3")
If Target.Column = 2 Then
.Interior.ColorIndex = 6
Else
.Interior.ColorIndex = xlNone
End If
End With
End Sub
'<<=============
This is worksheet event code and should be pasted into the worksheets's code
module (not a standard module and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman



wrote in message
oups.com...
I have searched and cannot find an answer. I am using Excel 2000 and
would like to create a function that will highlight a column heading in
row three if the current cell is in that particular column. Let's say I
have 10 columns. If I am at a cell in any row in column 2, then
highlight cell B2 else leave white. Is this possible via vba? How?

Hi C,

I should add that you indicate the header row to be row 3:

function that will highlight a column heading in row three

But, later, you say:

If I am at a cell in any row in column 2, then highlight cell B2

My code assumes the first definition. If, however, the header row is row 2,
change:

With Range("B3")

to

With Range("B2")


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi C,

Try:
'=============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("B3")
If Target.Column = 2 Then
.Interior.ColorIndex = 6
Else
.Interior.ColorIndex = xlNone
End If
End With
End Sub
'<<=============
This is worksheet event code and should be pasted into the worksheets's
code module (not a standard module and not the workbook's ThisWorkbook
module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman

right click sheet tabview codecopy/paste this. Be aware that it will erase
all others.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Cells(3, Target.Column).Interior.ColorIndex = 36
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
I have searched and cannot find an answer. I am using Excel 2000 and
would like to create a function that will highlight a column heading in
row three if the current cell is in that particular column. Let's say I
have 10 columns. If I am at a cell in any row in column 2, then
highlight cell B2 else leave white. Is this possible via vba? How?

Hi Don,

I suspect that your interpretation is the correct one!


---
Regards,
Norman



"Don Guillett" wrote in message
...
right click sheet tabview codecopy/paste this. Be aware that it will
erase all others.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Cells(3, Target.Column).Interior.ColorIndex = 36
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
I have searched and cannot find an answer. I am using Excel 2000 and
would like to create a function that will highlight a column heading in
row three if the current cell is in that particular column. Let's say I
have 10 columns. If I am at a cell in any row in column 2, then
highlight cell B2 else leave white. Is this possible via vba? How?

Thanks Don, that did the trick. Just could not find the right syntax.
You're awsome!

Aw shucks, glad to help.

--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Thanks Don, that did the trick. Just could not find the right syntax.
You're awsome!