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... |
All times are GMT +1. The time now is 05:17 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com