How to add frequently used text to a cell
Requirement:
The user would like to add the words "Dynamic Assessment:" to the end of the body of text in the active cell. The user would also like this text to be in bold.
For example:
This is the body of text.
This is the body of text. Dynamic Assessment:
Solution:
Code:
Sub AddBoldText()
'Adds Bold Text to Active Cell
Dim x As Long
x = Len(ActiveCell) + 2
ActiveCell = ActiveCell & " Dynamic Assessment:"
ActiveCell.Characters(Start:=x, Length:=19).Font.FontStyle = "Bold"
Obtained from the OzGrid Help Forum.
Solution provided by Carim and KjBox.
See also: Index to Excel VBA Code and Index to Excel Freebies and Lesson 1 - Excel Fundamentals and Index to how to… providing a range of solutions and Index to new resources and reference sheets
See also:
| How to copy cell value on Sheet 1 to a location in a text in another cell on Sheet 2 |
| How to run a macro if a column has a certain text in it |
| How to find list of most frequent text in excel |
| How to add rows and specific text after changes in data |
Click here to visit our Free 24/7 Excel/VBA Help Forum where there are thousands of posts you can get information from, or you can join the Forum and post your own questions.
Gallery
