Advertisement
Guest User

Untitled

a guest
Jun 27th, 2016
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. Sheets("Tabname").Select
  2. Range("A1").Select
  3. ActiveSheet.Pictures.Paste.Select
  4. Selection.ShapeRange.Height = 72
  5. Selection.Name = "New Name"
  6.  
  7. Selection.Name = "=C306"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement