Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Highlight Cell
try this in the sheet module
'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete 'Application.Cells.Font.Size = 10 With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With '.Font.Size = 20 .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Gordon" wrote in message ... Hi... I need some code that will change the formatting of a cell when selected. I simply want an emboldened red border around the cell selected. Sounds easy but I've become a head scratcher! Thanks Gordon... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to highlight more related cells if cell highlight | Excel Discussion (Misc queries) | |||
Highlight Cell Based Upon Referenced Cell Data | Excel Worksheet Functions | |||
I can't see Highlight cell in Find & Replace Cell | Excel Discussion (Misc queries) | |||
click on one cell to find and highlight a related cell? | Excel Discussion (Misc queries) | |||
Highlight cells with ctrl-click but only un-highlight one cell | Excel Discussion (Misc queries) |