Highlighting row when selecting data data via vba

[BIGTONE559]

Greetings,

i'm trying to figure out how to highlight a row, and also increase font size of a row where the active cell is. It would also be nice if this macro ran once the file was opened as well.

Data will be in the following range:

B10:O45

i.e. if cell d10 is selected Range(Cells(2,10),Cells(15,10) would be highlighted in yellow with D10 slightly larger than the other cells.

Is this possible? also would be nice if the font of the entire row was bold.


Regards!

 

[VoG]

Perhaps you need to delete the code from the individual sheets leaving just the code in ThisWorkbook.

 

[BIGTONE559]

Perhaps you need to delete the code from the individual sheets leaving just the code in ThisWorkbook.

All Code has been deleted on every worksheet. But what happens is that i have a macro that selects and copys data from B10:O45 on each page.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsNumeric(Application.Match(Sh.Name, Array("Instructions", "PayrollSummary", "EmpLook", "Crew", "Export"), 0)) Then ' list of sheets to exclude
    If Not Intersect(Target, Range("B10:O45")) Is Nothing Then Application.ScreenUpdating = True
End If
End Sub

that's also the range defined in the code that's attached to "thisworkbook". I'm wondering is it possible to turn the code in "thisworkbook" OFF when ever the macro "TestMacro" is run.

 

[VoG]

Try like this

Sub TestMacro()
Application.EnableEvents = False
'
'rest of your code
'
Application.EnableEvents = True
End Sub

 

[BIGTONE559]

Try like this

Sub TestMacro()
Application.EnableEvents = False
'
'rest of your code
'
Application.EnableEvents = True
End Sub

Perfect VOG

Thank You