Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub CopyRangeToAnotherSheet()
- Sheets("RawData").Activate
- If (Range("C17").Value) = "David Wood"
- Sheets("RawData").Range("A:AC").Copy
- Sheets("Team David").Activate
- Range("A:AC").Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement