Hello,

I'm in the middle of a project & trying to find a couple shortcuts that in the end would (hopefully) reduce data entry errors. Labor Distributions are posted weekly to QuickBooks. At some point these entries will be imported; however, the entries still need to be reviewed for correctness. Some project names are 50+ characters. All projects are assigned a "DC" job #; for instance - enter 'DC 1035' in QB & "Patterson Equipment:Internal Research & Dev:DC 1035 Monster Tools" would come up.

So far, I have been making the 'DC ####' bold & underlined on each line in the entries. I have a very long way to go. I wrote a macro that would bold & underline. I tried changing the Start to :='DC', Length:=5 - This did not work, see below.

MY MACRO
With ActiveCell.Characters(Start:='DC', Length:=5).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("G42").Select
End Sub

Would it be possible to write a VBA code to do the following:

Select any column,
search for "DC ####" within the project names
Bold & Underline ONLY the "DC ####" portion

Any help would be very appreciated,

Thank you,
-Katie