Hi There

I've been using this macro that allows me to select multiple items in a drop down list

Option Explicit
Public Prior As String

Private Sub Worksheet_Change(ByVal Target As Range)
'Author:    Jerry Beaucaire
'Date:      10/2/2009, 8/17/2010
'Summary:   These two macros create a multi-choice dropbox
'           This version allows each option to be selected only once
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        If Target <> "" Then
            If Prior <> "" Then
                If InStr(Prior, Target) > 0 Then
                    Application.Undo
                Else
                    Target = Target.Text & "," & Prior
                    Prior = Target
                End If
            End If
        Else
            Prior = ""
        End If
    End If
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Prior = Target.Text
End Sub
When I run debug it says that there is something to do with the Prior=Target.Text line. I'm a bit out of my depth here - how do I go about debugging this? I've attached my spreadsheet as an example. To get the error to occur, simply continue using the heading that states 'tax concession sought' selecting different items. It sometimes happens straight away, and other times it doesn't happen for a while, but eventually it does...

Register Null Error.xlsm

Thanks in advance

Arneld