Thank you Paul,
I have replaced ActiveDocument with Selection
On that line I now have With Selection.Range
I have replaced wdFindContinue with wdFindStop
on that line I now have .Wrap = wdFindStop
I highlight a section and run the macro and it works perfectly.

I have a section that adds a new line increasing the number that replaces the asterisk by one everytime it sees an asterisk in brackets like this

1. If prompted, select the drive that you want to clean up, and then select OK.
2. Wait for the box to complete a search, this may be a while depending on the size of the drive.
3. Once the search is complete a new box will open.
4. Put a tick in the boxes Temporary Files and Temporary Internet files
5. Uncheck the tick in any other boxes.
6. Click OK.

the code is

square bracket list=1 close square bracket
[*]If prompted, select the drive that you want to clean up, and then select OK.
[*]Wait for the box to complete a search, this may be a while depending on the size of the drive.
[*]Once the search is complete a new box will open.
[*]Put a tick in the boxes Temporary Files and Temporary Internet files
[*]Uncheck the tick in any other boxes.
[*]Click OK.
square bracket /list close square bracket