Skip to content

Instantly share code, notes, and snippets.

@thedeeno

thedeeno/gist:1507184

Created December 21, 2011 18:50
Show Gist options
  • Save thedeeno/1507184 to your computer and use it in GitHub Desktop.
Save thedeeno/1507184 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
Dim bocElements as Collection
Dim bocRange As Range
Set bocElements = New Collection
Set bocRange = Range("B4:B756")
For Each cell In bocRange
bocElements.add cell.Value
Next
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment