Invoke vb code error

Help Studio
1

Hi All,
I am tried invoke code and getting these error,can anyone help to resolve this.

Sub SelectARangeOfTexts()
Dim ObjSelectText As Range
Dim strText As String

strText = InputBox(“Enter Marking word(s) here:”, “Select a range of texts”)
Set ObjSelectText = Selection.Range

With Selection
.HomeKey Unit:=wdStory

With Selection.Find
  .ClearFormatting
  .Text = strText
  .MatchCase = True
  .MatchWildcards = False
  .Execute
End With
ObjSelectText.End = Selection.Range.End - Len(strText)
ObjSelectText.Select

End With
End Sub

Capture
Capture1236×739 47.9 KB

2

Hi @shanewatson
Try removing “Sub SelectARangeOfTexts()” and “End Sub”

3

For Invoke code - no need to define a function/method name. please remove below and try.
Sub SelectARangeOfTexts()
End Sub

1 Like