Make my TitleCase macro emulate the Format Painter

[Marceepoo]

I made a macro (shown below) that changes the case of selected text to
Title Case. The macro works just fine, except when the document has 10 or 20
or more snippets of text, on which I want to use the macro. It becomes a
pain to keep having to go back to the button I put on the toolbar (to invoke
the macro).
Does anyone know if there's a way in Vba to emulate the Format Painter,
in the sense that you can click on Format Painter in such a way as to change
the cursor, so that you can apply the formatting to one snippet of text after
the other, ad infinitum?

Any ideas would be much appreciated.
Thanks, marceepoo

Sub TitleCase()
'
' TitleCase Macro
'
Selection.Extend
Selection.Range.Case = wdTitleWord
End Sub

 

[Bear]

Marceepoo:

You could assign a keyboard shortcut to your macro so that you could just
press, say Alt+T to run your macro.

Bear