Macro to find whether a named style is used on the current page

The macro as you posted it does work for me. What happens when you try it? Do you get an error message, or do you get the wrong result?

There are two different ways you could make the macro "more correct" according to the rules of VBA.

1. Because you haven't declared the variable TargetStyle, VBA considers it to be a Variant type. When you assign ActiveDocument.Styles("Heading 1,UM H1") to it and don't use the Set keyword at the beginning of the statement, VBA says "You can't assign a Style object without the Set keyword, so you must mean to assign the object's default property, .NameLocal, which is a String value." It's usually a bad idea to rely on implicit use of default properties, as it tends to hide bugs in your logic. To make this explicit, you could put ".NameLocal" at the end of the statement. If you do this, it would be best to add the statement Dim TargetStyle As String at the beginning of the macro.
2. You could insert the Set keyword at the beginning of the "TargetStyle = " statement, so that TargetStyle is assigned the actual Style object. Then you should change the later use of it to Selection.Find.Style = TargetStyle.NameLocal, for the same reason as in item 1. Also, you should in this case declare Dim TargetStyle As Style.

I recommend reading Why variables should be declared properly.

Hmm, could it be something as simple as a missing Selection.Find.Wrap = wdFindStop in the code, to ensure that Word doesn't search beyond the selected page?

No, that isn't it. As a test, I created a two-page document in which the entire first page is Normal style, and one paragraph near the end of the second page has the "Heading 1,UM H1" style. When I put the cursor on page 1 and run the macro (as posted, without an Option Explicit statement), it correctly says there are no instances found. If the Find was searching beyond the first page, it would have said there was at least one instance.

Just to check, I put the cursor in Normal text on the second page and ran the macro again, and it did find the correct paragraph.

Bruce

There may be several places where your code is failing.

Firstly, the name of the style you are looking for is "Heading 1" - the UM H1 is an alias which may or may not exist in your document. The first msgbox shows this alias is being ignored anyway but it is cleaner to avoid it in the first place. You could amend the code to search for the stylename without the alias. Jay has pointed to a more correct solution for this variable so we can move in that direction.

Secondly, the find dialog has a large number of sticky settings and you need to ensure that none of these are getting in the way of your search. The following code should solve these issues.