Thanks sandan but that errorred out (object doesn't support method). I tried the following and now have a bad parameter error on the expand line. Any other suggestions? Dave


If Wdapp.Selection.Find.Found Then
   Wdapp.Selection.Expand Unit:=wdParagraph
   End If