Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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