Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. Sub A1right()
  2.  
  3.  
  4. Dim Current As Worksheet
  5.  
  6. ' Loop through all of the worksheets in the active workbook.
  7. For Each Current In ThisWorkbook.Worksheets
  8. With Current
  9. .Range("A1:H1").Copy Destination:=.Range("B1:I1")
  10. .Range("A1").ClearContents
  11. End With
  12. Next Current
  13.  
  14. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement