Word crashes on shape.delete

When I run this sub Word 2007 (Vista) crashes on the line that reads:
oShape1.Delete

Any ideas?

Sub Huisstijl_logox_nv()
Dim oSec1 As Word.Section
Dim oHead1 As Word.HeaderFooter
Dim oShape1 As Word.Shape
If Documents.Count = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each oSec1 In ActiveDocument.Sections
If oSec1.Index > 0 And oSec1.Index <= ActiveDocument.Sections.Count Then
For Each oHead1 In oSec1.Headers
For Each oShape1 In oHead1.Shapes
If Left(oShape1.Name, 7) = "Logo_nv" Then
oShape1.Delete
End If
Next
Next
End If
Next
End Sub

I have exactly the same problem, in the Headers too.
No solution found at this time.

Bye

"Cor van der Bliek" wrote:

> When I run this sub Word 2007 (Vista) crashes on the line that reads:
> oShape1.Delete
>
> Any ideas?
>
> Sub Huisstijl_logox_nv()
> Dim oSec1 As Word.Section
> Dim oHead1 As Word.HeaderFooter
> Dim oShape1 As Word.Shape
> If Documents.Count = 0 Then Exit Sub
> Application.ScreenUpdating = False
> For Each oSec1 In ActiveDocument.Sections
> If oSec1.Index > 0 And oSec1.Index <= ActiveDocument.Sections.Count Then
> For Each oHead1 In oSec1.Headers
> For Each oShape1 In oHead1.Shapes
> If Left(oShape1.Name, 7) = "Logo_nv" Then
> oShape1.Delete
> End If
> Next
> Next
> End If
> Next
> End Sub