I need to be able to click on a cell to bold/unbold the number in the cell

I have a monthly vehicle report that I am revamping and I need to build some features into it to increase user friendlieness. I need to be able to click on a cell that has a day of the month in it, to bold or unbold and count/uncount the number of bold days. For example the days of the month will be in cells B6:I9 and the tally box at J7.

Maybe:

Bold and Count

Please Login or Register  to view this content.

Clear Bold and Count

Please Login or Register  to view this content.

Can i make it bold with one click and unbold with one click, as well as add and subtract per click? As it is a double click on a cell then a click off the cell creates the bold and the number count in the tally box. It doesn't unbold with a click or subtract when bold is turned off. Thanks for helping

If you already have the tally in J7 working with the bold/unbold count, wouldn't it be more efficient to train the people to use Cntrl+B to bold the cell and Cntrl+Z to reverse that action? That way, they can spend less time moving a mouse and more time on the keyboard, which would be faster as well as teach them something.

Or they can use the "B" icon on the ribbon. But that reequires moving the mouse.

I am just trying to create the product that my bosses want. Maybe a way to click to highlight cells with fill color is a better way to do it. I already have a macro that counts highlighted cells. My boss wants a quick easy way to highlight the cells to show the days a given vehicle is used within the month when the report is printed.

Try putting this code in the Worksheet Module.

Please Login or Register  to view this content.

I think this may be what you need.

That is nearly perfect. I need the "double click to bold" to be restricted to the B6:I9 range. I also need to add in auto capitolization for ranges (A28:K42) and (J12:J21). I put in:

[B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
Application.EnableEvents = False

Set rng = Union([B1], [A28:K42,J12:J21], [G:G]) 'Upper Case
If Not Intersect(Target, rng) Is Nothing Then
Target = UCase(Target)
End If

Application.EnableEvents = True
End Sub
but I get a compile error: Ambiguous name detected. It works on other worksheets that don't have the code you provided. Thanks again for the help!

Untested, but try this;

Please Login or Register  to view this content.

Jim885, I'm sorry but I'm not sure how to use the code that you provided. Below is what I have so far...

Please Login or Register  to view this content.

Thanks again for helping out a beginner!

I got the bold / Unbold to only work in the B6:I9 range...

Please Login or Register  to view this content.

Hope this helps

Thank you so much moonsaga! I had tried something similar but didn't have the second "End If". I still can't get the auto upper case to work. It works flawlessly if I don't have the code for the "double click to bold" in there but as soon as I put it in the auto caps doesn't work. The code I have for that is above.

I copied your code to my test workbook and It works for me with the rest of the code.. I don't know why it doesn't work for you..

Thanks xlbiznes but I need a different range to be auto upper case. I have a workbook with only this code and it works great:

Please Login or Register  to view this content.

I also have a workbook with code to bold/unbold a range of 31 numbers that represent a month. It also counts the number of bold numbers and tallies them in a separate cell. The part of the code that runs the bold and count works great but the auto upper case doesn't work in this workbook and is as follows:

Please Login or Register  to view this content.

Again, thanks for the help