How to re-calculate sheet on change in Format of a cell

[Juggler_IN]

I want the re-calculate sheet (F9) when there is change in format --- from bold to un-bold and vice versa in Range ("A4:A65536").

I have a tiger code for change in cell values. How can we add the BOLD/UNBOLD aspect?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will cause an alert
' when they are changed.
Set KeyCells = Range("A4:A65536")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
' Display a message when one of the designated cells has been changed.
MsgBox "Cell " & Target.Address & " has changed."
Calculate
End If
End Sub

 

[Joe4]

Changing the format of a cell does not change the value.
So why would there be a need for a recalculation?
And why not just have your sheet on AutoCalc?

 

[Juggler_IN]

There mathematical operations on Cells which are BOLD. If I make a cell BOLD it gets considered for calculation else not.

 

[Joe4]

Is there a reason why you do not want AutoCalc on?

Here is a link here that shows you how you can just calculate selected cells: https://www.extendoffice.com/documents/excel/3931-excel-only-recalculate-refresh-selected-cells.html

Do do what you want, the only way I can think of is to create a macro that loops through your specified range, and check each cell to see if if is bold, and if it is, then recalc that cell.
That is pretty slow and inefficient, so I would probably recommend running/calling that macro manually, so it doesn't run needlessly and slow your sheet down to the point where it is hard to work with.

 

[FDibbins]

Just changing the font of a cell will not change if it is a calculable formula or not - hmm unless you are applying bold to cells that would be used IN the formula? If that is the case, it might be quicker to add a helper cell with an X (or something) to indicate it is to be used (or not used)