I'm working on a report card for my mom's school, and I need to set up a
Macro Button that will Copy the test of that sheet's label & paste it into a
specific cell. This is what I recorded, but I'm getting an error at "Active
Sheet.Paste":

Range("R2:W2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("Vanessa Bailey").Select
Sheets("Vanessa Bailey").Name = "Vanessa Bailey"
Range("R2").Select
ActiveSheet.Paste
Range("R2:W2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
--
Vanessa M Bailey