ik krijg volgende foutmelding als ik op de delete toets druk of als ik de cel ervoor selecteer ergens anders in het rapport.
De fout zou in volgende code moeten zitten
In deze lijn zou de fout moeten zitten
Kan iemand mij helpen?
De fout zou in volgende code moeten zitten
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'1ste If Not automatisch openen van bestand als een incidentenrapport moet ingevuld worden
If Not Intersect(Target, Union(Range("D218"), Range("D219"), Range("D220"))) Is Nothing And Target <> "" Then
With CreateObject("Word.Application")
.Visible = True
.Documents.Open ("P:\SHARE\Rapporten\Incidentenrapporten\Incidentenformulier blanco.doc")
End With
SetForegroundWindow (FindWindow(vbNullString, "Incidentenformulier blanco.doc - Microsoft Word"))
End If
Code:
If Not Intersect(Target, Union(Range("D218"), Range("D219"), Range("D220"))) Is Nothing And Target <> "" Then
Kan iemand mij helpen?