Sub QuickFillMax() Dim myArray As Variant myArray = Worksheets("Sheet1").range("B2:C17") MsgBox "Maximum Integer is: " & WorksheetFunction.Max(myArray) End Sub