VBA kode til registrering af medarbejdere

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandle

If Not Intersect(Range("A3"), Target) Is Nothing Then

MedArbejderNr = Range("A3").Value
MedArbejderNavn = Application.WorksheetFunction.VLookup _
(ThisWorkbook.Sheets(1).Range("A3"), _
ThisWorkbook.Sheets(2).Range("A1:B738"), _
2, False)

Range("A5").Value = "OK"

Range("C6").Select
If Range("C6").Value = "" Then
    Range("C6").Activate
Else
    Range("C6").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
    .Offset(0, 0).Value = MedArbejderNr
    .Offset(0, 1).Value = MedArbejderNavn
End With
End If

Exit Sub

ErrorHandle:
'MsgBox Err.Number
Select Case Err.Number
        Case 1004
            Range("A5").Value = "Findes ej"
        Case Else
            ' Behandle andre fejl her...
    End Select
   
End Sub