The Min function arguments in vb

[matt edri]

Hi,

I need to calculate the minimal value from all the cells that are adjacent to the active cell in vb code

I tried using the min function like this:

Dim min As Double
min = WorksheetFunction.min(ActiveCell.Offset([-1,1], [-1,1]).Value)

but I got a runtime error of type mismatch

how do I define the argument for the min function as a dynamic range of cells?

 

[matt edri]

OK that was solved after googling

now lets say I have this range of cells: G29:P38

how do I iterate through all of the cells in the range with for loops and find the minimal value like posted before?

 

[VoG]

Try

xmin = WorksheetFunction.Min(Range("G29:P38"))

 

[matt edri]

Thanks, but my intension was to iterate over each cell in the range and find the minimal value in the adjacent cells only, not the whole range...