Find string in column A, add text next to it in column B

[Glasgowsmile]

Trying the following:

set Fnd = Sheet1.Range("A:A").Find("Testing")
Sheet1.Range(Fnd.Offset(0,1)).Value

Doesn't give an error but also doesn't appear to be working, what am I missing?

 

[rlv01]

Try something like this:

    Dim Fnd As Range
    
    On Error Resume Next
    Set Fnd = Sheet1.Range("A:A").Find("Testing")
    On Error GoTo 0
    
    If Not Fnd Is Nothing Then
        MsgBox Fnd.Offset(0, 1).Value
    Else
        MsgBox "String not found"
    End If

 

[Glasgowsmile]

Try something like this:

    Dim Fnd As Range
   
    On Error Resume Next
    Set Fnd = Sheet1.Range("A:A").Find("Testing")
    On Error GoTo 0
   
    If Not Fnd Is Nothing Then
        MsgBox Fnd.Offset(0, 1).Value
    Else
        MsgBox "String not found"
    End If

One thing I failed in my original post was this:

Sheet1.Range(Fnd.Offset(0,1)).Value = "New Value"

 

[rlv01]

One thing I failed in my original post was this:

Sheet1.Range(Fnd.Offset(0,1)).Value = "New Value"

Sub XXXY()
    Dim Fnd As Range
   
    On Error Resume Next
    Set Fnd = Sheet1.Range("A:A").Find("Testing")
    On Error GoTo 0
   
    If Not Fnd Is Nothing Then
        Fnd.Offset(0, 1).Value = "New Value"
    Else
        MsgBox "String not found"
    End If
End Sub