Excel genii required

Factual Questions
1

I have been trying to make an Excel Macro that:

  1. Finds a cell containing a certain word
  2. Moves to the right of that cell
  3. Bolds and increases the font of the cell

I can manage 1 & 3 but 2 is a problem.

I did scour the web for basic excel macros plus the helpfiles, but can find nothing.

2 


    Cells.Find(What:="yourtexthere", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    **ActiveCell.Offset(0, 1).Activate**
    Selection.Font.Bold = True
    With Selection.Font
        .Size = 9
    End With

ActiveCell.Offset(0, 1).Activate will activate a cell zero rows and one column offset.

3

Thank you! Got it working, and have saved myself at least 6 seconds a day!

Given the time it took me to set up, if I live to 193, and continue in my current job seven-days a week until my death, it will work out cost-effective timewise…

4

Sorry to bump this, but since getting my Macro to work, Excel now always opens up with two windows. Eg if I double-click on an .xls document to open it up, when Excel opens, there is a second window with “Personal.xls” opened up. It’s sort of irritating, as it jams up my toolbar at the bottom of the screen.

Unavoidable, or get-rid-of-able?