Highlight Cell

MetLife

Board Regular
Joined
Jul 2, 2012
Messages
242
Hi,

I recall seeing this on YouTube videos. Basically if the cell is highlighted it has a "bold" or "distinct shape" around it so that the cell is easy to identify.

Is there a setting in excel to implement this? I am using excel 2010.

Thanks
 

Some videos you may like

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

Factotum

Board Regular
Joined
May 14, 2015
Messages
118
You'll probably need to be a lot more specific to get an answer on this one. What exactly is it that you're trying to accomplish?
 

MetLife

Board Regular
Joined
Jul 2, 2012
Messages
242
You'll probably need to be a lot more specific to get an answer on this one. What exactly is it that you're trying to accomplish?

I want the cell to be bold and have a border when it is selected.
 

Factotum

Board Regular
Joined
May 14, 2015
Messages
118
Sorry for the slow reply. You're question is still pretty vague, but if I understood you correctly, then here is an idea. Put this code in the Sheet1 object or whatever sheet(s) you want to modify. It will slow down your performance significantly because the macro runs every time you select a new cell. It adds some highlights to a cell when it is selected, and only when it is selected.

The downside is that all formats are cleared when you select a different cell. So any formatting you have anywhere on the sheet will be cleared every time you click the mouse in a cell or hit an arrow key. You could maybe modify this to only clear the formatting in the target cell, but I don't know how to do that off the top of my head. If you want the bold/outline to stay when you select a different cell, then simply delete Cells.ClearFormats

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


'Clears all formatting in entire sheet every time a new cell is selected
Cells.ClearFormats


'Anytime a cell in column A-Z is selected it will be bold, yellow, outlined, size 14
Const WS_RANGE As String = "A:Z"
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
    With Target
        Selection.Font.Bold = True
        Selection.Borders.Weight = xlThick
        Selection.Interior.Color = 65535
        Selection.Font.Size = 14
    End With
End If


End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,122,576
Messages
5,596,973
Members
414,115
Latest member
SFUser

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top