Problemer med konflikt mellem to vba koder

Hej

Jeg har i ThisWorkbook indsat nedenstående kode for at sikre at brugeren kun kan markere celler i det angivne område.

Ark1.ScrollArea = "a1:n65000"

I et modul har jeg nedenstående vba, som konvertere tekst til tal.

Public Sub Tal_Som_Tekst_Til_Tal()
    Dim Data As Variant, Ad As String, Col As Long, I As Long, X As Long
    Range("A8").Select
    Ad = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Address
    Col = Range(Ad).Columns(Range(Ad).Columns.Count).Column
    Data = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
    For I = 1 To UBound(Data)
        For X = 1 To Col
            If IsNumeric(Data(I, X)) And Data(I, X) <> "" Then
                Data(I, X) = Data(I, X) * 1
            End If
        Next
    Next
    Range(Ad) = Data
End Sub

Når koden i ThisWorkbook er slået til stopper mit program i ovenstående kode ved:

Ad = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Address

Er der en der ud fra disse oplysninger kan fortælle mig hvad det er der skaber problemet og hvordan jeg kan løse det?

Med venlig hilsen

TVC