Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub A1right()
- Dim Current As Worksheet
- ' Loop through all of the worksheets in the active workbook.
- For Each Current In ThisWorkbook.Worksheets
- With Current
- .Range("A1:H1").Copy Destination:=.Range("B1:I1")
- .Range("A1").ClearContents
- End With
- Next Current
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement