Excel VBA: How to “offset” multiple ranges

[modhorat]

I'm looking to offset multiple ranges
Example:
[Ctrl + F] Using Find function, find all cells in Column A that = "XYZ" (Select All)
Then offset the active cells (all selected/found) 5 places to the right [.Offset(0,5)]

 

[Meggesto]

Sub FDSet()

FindString = InputBox("Enter Text to Search For", "Search Text")

Dim ColARange As Range
Set ColARange = Range("A1:A100")
Dim Cell As Range

For Each Cell In ColARange
    If Cell.Value = FindString Then
        Cell.Offset(0, 5).Value = Cell.Value
    End If
    Next Cell

End Sub

Would something like this work?

 

[modhorat]

Re: Excel VBA: How to “offset” multiple ranges - [SOLVED]

Sub FDSet()

FindString = InputBox("Enter Text to Search For", "Search Text")

Dim ColARange As Range
Set ColARange = Range("A1:A100")
Dim Cell As Range

For Each Cell In ColARange
    If Cell.Value = FindString Then
        Cell.Offset(0, 5).Value = Cell.Value
    End If
    Next Cell

End Sub

Would something like this work?

Thanks a million, it works like a charm!!