Hi Ashish,
Thank you very much.
Works fine, saved lot of time.
Thanks.
On Mon, Dec 17, 2012 at 7:11 PM, ashish koul wrote:
> Sub add_comment()
> Dim i As Long
> Dim x As String, found As Range
> Dim j As Long, k As Long
>
> For i = 2 To Sheets("Clients").Range("a1").End(xlDown).Row
> Se
Sub add_comment()
Dim i As Long
Dim x As String, found As Range
Dim j As Long, k As Long
For i = 2 To Sheets("Clients").Range("a1").End(xlDown).Row
Set found =
Sheets("Details").Range("a:a").Find(Sheets("Clients").Cells(i, 1).Value,
LookIn:=xlValues)
If Not found Is Nothing Then
j
