sub attribute error

gnowak · Mar 12, 2009

Hi!

The code:

Code:

sub run()
  test (Range("A1:B4"))
end sub

Sub test(testRange As Range)
  testRange.Select
End Sub

The error:
Runtime error '424'
object required

Any hints?

Thanks!

MickG · Mar 12, 2009

Hi, I think you need to pass a Range Object :-

Code:

Sub run()
 Dim rng As Range
  Set rng = Range("A1:C4")
    test rng
End Sub

Sub test(testRange As Range)
  testRange.Select
End Sub

Some one else might elaborate further
Regards Mick

RoryA · Mar 12, 2009

Remove the parentheses:

Code:

Sub run()
  test Range("A1:B4")
End Sub
Sub test(testRange As Range)
  testRange.Select
End Sub

MickG · Mar 12, 2009

Look before you leap !!!
Thanks Rory

gnowak · Mar 13, 2009

Thanks a ton!