Having an issue with .Activate...

[questionguy]

my goal is to find a name in a range and offset one spot to the right to get my value... Receiving error 9

Private Sub findingvalue_Click()
        'Unit Number
        Dim a1 As Range
        Dim test As String
        Dim findvalue As String
        findvalue = Sheets("Request Form").Range("D23").Value
        Set a1 = Sheets("Ranges").Range("D1:D10000").Find(findvalue)
            If a1 Is Nothing Then
                Else
                a1.Activate 'THIS IS WHERE THE ERROR IS
                test = ActiveCell.Offset(0, 1).Value
                MsgBox (test)
            End If
End Sub

anybody know what iam doing wrong?