PLEASE SHOW CODE IN VISUAL BASIC 21 12 343 546 67 879 90 23

PLEASE SHOW CODE IN VISUAL BASIC:

Solution

Sub Smallest()

Dim rng As Range
Dim dblMin As Double

\'Set range from which to determine smallest value
Set rng = Sheet1.Range(\"A1:Z100\")

dblMin = Application.WorksheetFunction.Min(rng)

MsgBox dblMin
End Sub

Sub Largest()
Dim rng As Range
Dim dblMax As Double

Set rng = Sheet1.Range(\"A1:Z100\")

dblMax = Application.WorksheetFunction.Max(rng)
MsgBox dblMax
End Sub

Dim dblSum As Sum

\'Set range from which to determine smallest value
Set rng = Sheet1.Range(\"A1:Z100\")