macro to pause, enter a name in the find box, and continue

[still learning]

Hi

I’m trying to write a macro that will unfreeze the screen,
Then bring up the “find” box.
Pause to enter a name,
Hit next, which will take the cursor to that name,
Close the box,
And change the font color to red.

I have to unfreeze the screen first because I have names from B2:B400 separated by month.
On opening the sheet, the screen finds the current month, freezes one line below and scrolls it to the top.

If I use “find”, the result will not go above the freeze.
What I do now, is unfreeze the screen and find the name.

The next time i open the sheet, the open macro will find the current month....etc.

I don’t need a macro to freeze the screen again after using the 'find" box because I use the "open" macro if I want to do something else to the sheet
I also have B2:B400 change back to the black font before using my save and close macro

I use custom macros on the Ribbon Bar

Sub tofindname()
ActiveWindow.FreezePanes = False

mike