Hello
How to get activecell's address? I need to offset it to (10,0) and paste it.

Sub String_Find_and_Paste()
Dim s_text As String
Dim r As Range
Dim s As Range

For Each c In Worksheets("Sheet1").Rows("5:5").Cells
s_text = c.Value
If InStr(1, s_text, "India", vbTextCompare) 0 Then
'Get the activeCell's address, offset it & paste
Any ideas
Milind