Sub nulltest()
A = 4
B = 8
C = 20
If A < 10 Then
[COLOR=#ff0000] A = 999999999[/COLOR]
End If
D = Application.Min(A, B, C)
End Sub
It returns 8. Is that not what you are after?It is not an answer I am looking for
Sub Test()
Dim D As Double
Dim rng As Range
Dim cell As Range
Dim counter As Long
Dim arr()
Dim i As Long
ReDim arr(0)
' Set range where data is stored
Set rng = Range("A1:C1")
' Loop through all cells in range
For Each cell In rng
' Check value of first record to see if to exclude it
If (counter = 0) And cell.Value < 10 Then
' Do nothing
Else
' Add to array
arr(i) = cell
i = i + 1
ReDim Preserve arr(i)
End If
' Increment counter
counter = counter + 1
Next cell
' Return minimum value from array
D = Application.WorksheetFunction.Min(arr)
MsgBox D
End Sub