On Mar 11, 12:50*am, Wouter HM wrote:
Hi sanju,

I started my old computer with Excel 2003.
I copied the code from my message and dit not get an error.

I modified the code to your last request with dynamic rows
When you copy the code into Excel VBE be sure to combine any red line
with the line above it.

Option Explicit
Dim shtSource As Worksheet
Dim lngLastS *As Long

Sub Caller()
* Set shtSource = Worksheets("Activity")
* lngLastS = shtSource.Cells(shtSource.Rows.Count, 4).End(xlUp).Row
* Application.ScreenUpdating = False
* Application.Calculation = xlCalculationManual
* nehaAll "IP_MPLS"
* nehaAll "BB"
* nehaAll "DGE"
* nehaAll "IPLC VCIPLC"
* nehaAll "Voice"
* Application.ScreenUpdating = True
* Application.Calculation = xlCalculationAutomatic
* Set shtSource = Nothing
End Sub

Sub nehaAll(strTarget As String)
* Dim shtTarget As Worksheet
* Dim lngLoopT As Long
* Dim lngLoopS As Long
* Dim lngLastT As Long
* Set shtTarget = Worksheets(strTarget)
* lngLastT = shtTarget.Cells(shtTarget.Rows.Count, 1).End(xlUp).Row
* For lngLoopS = 2 To lngLastS
* * For lngLoopT = 3 To lngLastT
* * * Sheets("Activity").Cells(lngLoopS, 4).Select
* * * If shtSource.Cells(lngLoopS, 4).Value =
shtTarget.Cells(lngLoopT, 1).Value Then
* * * * shtTarget.Cells(lngLoopT, 32).Value =
shtSource.Cells(lngLoopS, 10).Value
* * * * shtTarget.Cells(lngLoopT, 21).Value =
shtSource.Cells(lngLoopS, 1).Value
* * * * shtTarget.Cells(lngLoopT, 22).Value =
shtTarget.Cells(lngLoopT, 22).Value & _
* * * * * ". * * * * *;" & shtSource.Cells(lngLoopS, 2).Value & ";" &
_
* * * * * shtSource.Cells(lngLoopS, 8).Value
* * * End If
* * Next lngLoopT
* Next lngLoopS
* Set shtTarget = Nothing
End Sub

HTH,

Wouter.

Thanks Wouter, it was great. You are champ.
One more addition, if you can help out , I want new addition in the
column 22 in Target sheet in wrapper mode. i.e it should start in
line below with format as todays date ; update from source sheet.

Please help.