Re: $$Excel-Macros$$ Deleted text

OK, Thanks for your suggestion SAM. Thanks for your help. Regards Lokesh On Sat, Jan 14, 2012 at 9:11 AM, Sam Mathai Chacko wrote: > You are welcome. > > In keeping with Donald's solution, here's a shorter version > > > Sub RemoveText() > > Dim lngRows As Long > lngRows = Application.Ma

Re: $$Excel-Macros$$ Deleted text

You are welcome. In keeping with Donald's solution, here's a shorter version Sub RemoveText() Dim lngRows As Long lngRows = Application.Max(Worksheets("Deleted report").Cells(Rows.Count, "A").End(xlUp).Row, 2) With Worksheets("Add Extracted") .Range("E2:E" & Application.Max(.

Re: $$Excel-Macros$$ Deleted text

Hi Sam, Thanks for doing this to me. Regards Lokesh.M On Sat, Jan 14, 2012 at 9:02 AM, Sam Mathai Chacko wrote: > Sub RemoveText() > > Dim lngRows As Long > lngRows = Application.Max(Worksheets("Deleted > report").Cells(Rows.Count, "A").End(xlUp).Row, 2) > With Worksheets("Add Extra

Re: $$Excel-Macros$$ Deleted text

Sub RemoveText() Dim lngRows As Long lngRows = Application.Max(Worksheets("Deleted report").Cells(Rows.Count, "A").End(xlUp).Row, 2) With Worksheets("Add Extracted") .Range("E2:E" & Application.Max(.Cells(Rows.Count, "E").End(xlUp).Row, 2)).Clear With .Range("E2").Resiz