Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Public Function DataGet(SheetName As String, StartRow As Integer, StartColumn As Integer) As Variant
Dim EndRow As Integer
Dim EndColumn As Integer
Dim Data As Variant
With Sheets(SheetName)
EndColumn = .Cells(StartRow, StartColumn).End(xlToRight).Column
EndRow = .Cells(StartRow, StartColumn).End(xlDown).row
End With
Data = Sheets(SheetName).Range(Sheets(SheetName).Cells(StartRow, StartColumn), Sheets(SheetName).Cells(EndRow, EndColumn))
DataGet = Data
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment