Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Assign range to an array
Sub QuickFillMax()
    Dim myArray As Variant
    
    myArray = Worksheets("Sheet1").range("B2:C17")
    MsgBox "Maximum Integer is: " & WorksheetFunction.Max(myArray)
    
End Sub