Sub GetMaxAndMinValues()
Dim vMax, vMin
vMax = WorksheetFunction.Max(Range("A:A"))
vMin = WorksheetFunction.Min(Range("B:B"))
MsgBox "Maximum value in column A = " & vMax & vbCrLf & _
"Minimum value in column B = " & vMin, vbInformation, "Max and Min"
End Sub