Hi,

I'm trying this bit of code to obtain the max and min values and print them into Range C2 and E2, however I get a debug error (Run time error 438, object doesn't support this property or method)

  Dim rng1, rng2 As Range

    Set rng1 = Sheets("Plan").Range("C3:C40")
    Set rng2 = Sheets("Plan").Range("E3:E40")

    Sheets("Plan").Range("C2").Value = Application.WorkheetFunction.Min(rng1)
    Sheets("Plan").Range("E2").Value = Application.WorkheetFunction.Max(rng2)
There must be something wrong with my syntax but I can't figure out what it is! Can somebody help please?