Advertisement
Guest User

Untitled

a guest
May 29th, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. Dim rngstart As Range
  2. Dim rngend As Range
  3. rngstart = Worksheets("Sheet1").Range("A34:A132").Find("start", lookat:=xlWhole).Offset(0, 2).Address
  4. rngend = Worksheets("Sheet1").Range("A34:A132").Find("end", lookat:=xlWhole).Offset(0, 2).Address
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement