I am trying to search the same column in each sheet in a workbook fo
values within a range with the following, but get error 424 at line
-what have I done wrong?

Dim sh As Worksheet
Dim cell As Range
Dim LowVal As Long
Dim HiVal As Long
Dim i As Integer
Dim j As Integer
Set sh = Worksheets.Add(befo=Worksheets(1))

LowVal = 1 'these values are amended as necessary
HiVal = 10
j = 1
For i = 2 To ActiveWorkbook.Sheets.Count
For Each cell In Intersect(Sheets(i).[J:J],Sheets(i).UsedRange)
With Cell
If IsNumeric(.Value) Then
If .Value = LowVal And .Value <= HiVal Then
sh.Cells(j,"A").Value =Sheets(i).Name
sh.Cells(j,"B").Value = .Address(False,False)
j+j+1
End If
End If
End With
Next
Nex

--
Peter Rum
-----------------------------------------------------------------------
Peter Rump's Profile: http://www.excelforum.com/member.php...fo&userid=2627
View this thread: http://www.excelforum.com/showthread.php?threadid=39567