Advertisement
Guest User

Untitled

a guest
May 24th, 2016
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. Sub SingleCell()
  2. Dim r1 As Range, r2 As Range
  3.  
  4. Set r1 = Workbooks("Book1").Sheets("Sheet1").Range("A:A").Find(What:="Quote ID:").Offset(0, 1)
  5. Set r2 = Workbooks("Book2").Sheets("Sheet1").Range("B67")
  6. r1.Copy r2
  7. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement