paste the minimum value of a range at A1

[prasadyanz]

i want paste the minimum value from q5:q36 in A1 (i making some silly mistake)cant not able to figure out
thanks a lot for your cooperation

 

[Andrew Poulsom]

Try:

Sub Test()
    With ActiveSheet
        .Range("A1").Value = WorksheetFunction.Min(.Range("Q5:Q36"))
    End With
End Sub