Forgot to paste!

R

Rhonda

ooops!

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Dim strRow As String
Cells.FormatConditions.Delete


With Target.EntireRow
strRow = .Address
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=COUNTA(" & strRow & ")>0"

.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 15
End With
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Trigger on leaving cell (of entire column) 2
Conditional Formatting 5
Highlight Row and only certain Column cells 2
Select multiple rows and add a value in a column 2
Formatting with Macros 6
Help with the following code...from EntireRow to set width 3
Limit Highlighting 1
Limit Row and Column Highlight 2

Top