RE: $$Excel-Macros$$ Re: Book3.xlsx

2012-07-01 Thread Lalit Mohan
Hi Neeraj, Try this: Sub FindFormula() Dim rngDtRange As Range Const strDataRange As String = "B1:B1000" With ThisWorkbook.Worksheets("Sheet1").Range(strDataRange) For Each rngDtRange In .Range(strDataRange) If rngDt

RE: $$Excel-Macros$$ Re: Book3.xlsx

2012-06-29 Thread Rajan_Verma
Hi Try this : Sub MTest() Dim rngRange As Range Set rngRange = Range("A1").CurrentRegion.Offset(1) Application.screenUpdating=False rngRange.Sort key1:=rngRange.Cells(1, 3) Set rngRange = Range("A1").CurrentRegion.Columns(3).SpecialCells(xlCellType