Object required error

[Peter Rump]

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(before:=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

 

[Bob Phillips]

Try this

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

LowVal = 1 'these values are amended as necessary
HiVal = 10
j = 1
For i = 2 To ActiveWorkbook.Sheets.Count
Set rng = Intersect(Sheets(i).Columns("J:J"), Sheets(i).UsedRange)
If Not rng Is Nothing Then
For Each cell In rng
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
End If
Next


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Peter Rump]

Hi Bob

Thanks for that - it gets me past the error message but selects the
empty cells rather than the ones with values in them. How do I correct
that?

As you can probably tell by now I am very much a VBA beginner!

Peter

 

[Peter Rump]

Hi Bob

I think I have solved my problem. It seems to be that LowVal and HiVa
expected integers whereas I was using dates. How should I Dim thes
Values to work on dates. Temporarily I have reformatted the column s
that it works.

Pete

 

[Bob Phillips]

Peter,

Try

Dim LowVal As Date
Dim HiVal As Date

If you had defined them As Long it would probably have worked as well.


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Peter Rump]

Bob

I have tried that and it works fine. Many thanks for your help

Pete