Hi,

I have the following macro in VBE, but by running it an error occurs.
It is a compile error and the problem is the range with named ranges in
it.
Does someone have a solution? Thanks in advance!

Sub RijInvoegen()

If Intersect(ActiveCell, Range("ToegestaneRijenOnderbouw",
"ToegestaneRijenSkelet", _
"ToegestaneRijenGevelDakPrefab", "ToegestaneRijenDiversen")) Is
Nothing Then
MsgBox "U kunt hier geen rij invoegen"
Else
Call InvoegenRij
End If

End Sub
------------------------------------------------------------------------
Private Sub InvoegenRij()

Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow

Selection.Offset(1).EntireRow.SpecialCells(xlConst ants).ClearContents

End Sub


--
leonidas
------------------------------------------------------------------------
leonidas's Profile: http://www.excelforum.com/member.php...o&userid=35375
View this thread: http://www.excelforum.com/showthread...hreadid=554506