Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/Find_Test02.bas

Created January 22, 2018 11:05
Show Gist options
  • Save DuongAQ/607db446cc4687053578a719bc58dff4 to your computer and use it in GitHub Desktop.
Save DuongAQ/607db446cc4687053578a719bc58dff4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Find_Test02.bas
Sub Find_Test02() 'Excel VBA to find a Range of cells.
Dim fnd As Range
Dim rng As Range
Set fnd=Range("A1:G20").Find("Start")
Set rng=Range(Cells(fnd.Row, fnd.Column + 1), Cells(fnd.Row, fnd.Column + 2))
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment