Highlight Row and Column VBA

[SRMPURCHASE]

After years of successful use, once a cell is selected the row and column are highlighted, works fine until recently I have to hit F9 to enable the macro.
What would cause this F9 requirement when in the past I have not needed it, the highlighting simply followed my cell selections.


Private Sub Workbook_Open()
End Sub
Sub EnableEvents()
Application.EnableEvents = 1
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

Run this code:

Sub EnableEvents()
Application.EnableEvents = 1
End Sub

Update this:

Private Sub Workbook_Open()
  Call EnableEvents
End Sub

 

[SRMPURCHASE]

I deleted the first two lines of my code, inserted yours and I still need F9 to highlight row/col.

 

[DanteAmor]

But you have to run this macro once:

Sub EnableEvents()
Application.EnableEvents = 1
End Sub

Go back to the sheet and try.
--------------------------------

Update your codes so that they look like this:

Private Sub Workbook_Open()
  Call EnableEvents
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Application.ScreenUpdating = True
End Sub

Sub EnableEvents()
  Application.EnableEvents = 1
End Sub

 

[SRMPURCHASE]

I still need to press F9 to get the row/col highlight to change.

 

[DanteAmor]

How is your conditional formatting?
Can you share your file?

You could upload a copy of your file to a free site such www.dropbox.com or google drive. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

 

[SRMPURCHASE]

here's the CF behind that macro, macro range is B24:BE1953

=OR(AND(CELL("col")=CELL("col",B24),CELL("row")>CELL("row",B24)),AND(CELL("row")=CELL("row",B24),CELL("col")>CELL("col",B24)))+$A$1:$H$1

 

[DanteAmor]

Works for me.

It looks to me like you haven't run this macro:

Sub EnableEvents()
  Application.EnableEvents = True
End Sub

Or
You could upload a copy of your file to a free site such www.dropbox.com or google drive. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

 

[SRMPURCHASE]

Here's what I have in the tab under View Code now.
Working on getting a sharable link from my One Drive, not as easy as I would like.


Sub EnableEvents()
Application.EnableEvents = 1
End Sub


Private Sub Workbook_Open()
Call EnableEvents
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

I don't know how to explain it, but you have to run this macro:

Sub EnableEvents()
  Application.EnableEvents = True
End Sub

HOW TO INSTALL MACROs
------------------------------------
If you are new to macros, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. To use the macro, go back to the worksheet with your data on it and press ALT+F8, select the macro name (EnableEvents) from the list that appears and click the Run button. The macro will execute and perform the action(s) you asked for. If you will need to do this again in this same workbook, and if you are using XL2007 or above, make sure you save your file as an "Excel Macro-Enabled Workbook (*.xlsm) and answer the "do you want to enable macros" question as "Yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.