Macro to add text box based on cell property

[rakeshplb]

Hi All,

If any cell in my active workbook has formula, then a textbox should come next to it with letter "A" in color red and in bold.

Can anyone make this possible?

Thanks!

[rakeshplb]

Can anybody on this forum has enough knowledge to make it possible?
Please help. Thanks!

[rakeshplb]

Can anybody please help me in this?

[bill74]

Hi

Does it have to have a text box next to the cell? If not why dont you just highlight all the cells that have a formula and highlight red.

Start your Macro Edit/Go to /Special / Formulas OK, Highlight Bold then Red. then stop macro.

Whooup

[rakeshplb]

Hi,

Thanks for your reply!

But it have to have a text box next to the cell.

Can anybody help please?

[VBA Noob]

Maybe

Please Login or Register  to view this content.

VBA Noob

[rakeshplb]

Dear VBANoob,

Its working like a magic. I had started to think that it is impossible to write a code for this. Many thanks!

The only problem I face is that if there is any worksheet in the active workbook, which has no formula containing cell then the macro displays an error. I believe you can fix that.

Here is the code -

Sub AddTextBox()

Dim Worksheet As Worksheet
Dim TextBox As Shape
Dim Range As Range
Dim Cell As Range

For Each Worksheet In Worksheets
Set Range = Worksheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
For Each Cell In Range
Set TextBox = Worksheet.Shapes.AddTextBox(msoTextOrientationHorizontal, 100000, 1, 20, 10)
With TextBox
.TextFrame.Characters.Text = "R"
.TextFrame.Characters.Font.FontStyle = "Bold"
.TextFrame.Characters.Font.Name = "Wingdings 2"
.TextFrame.Characters.Font.Color = 12611584
.TextFrame.AutoSize = True
.Top = Cell.Offset(0, 1).Top
.Left = Cell.Offset(0, 1).Left
End With
Next Cell
Next Worksheet

End Sub

[rakeshplb]

Can anyone please help me on this.