Hi Milind,

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

Try:

Activecell.Offset(10)

---
Regards,
Norman



"Milind" wrote in message
...
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