my goal is to find a name in a range and offset one spot to the right to get my value... Receiving error 9
anybody know what iam doing wrong?![]()
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
Bookmarks