Daxton's Question: New Worksheet Button on Every Worksheet

[Anne Troy]

Sub newWorksheet() 
' newWorksheet Macro
     ' Macro recorded 6/9/2004 by VMM
Dim latestSheet As Integer 
ActiveWindow.ScrollWorkbookTabs Position:=xlLast 
    Sheets(Worksheets.Count).Select 
    Sheets.Add 
    Sheets(Worksheets.Count).Select 
Sheets("Sheet6").Move After:=Sheets(14)
    Sheets(Worksheets.Count).Select 
    ActiveSheet.Shapes("Button 1").Select 
    Selection.Copy 
    Range("A1").Select 
    Sheets(Worksheets.Count - 1).Select 
    Range("A1").Select 
    ActiveSheet.Paste 
    Selection.ShapeRange.IncrementLeft 3.75 
    Range("A1").Select 
    latestSheet = Worksheets.Count - 1 
    Sheets(latestSheet).Move After:=Sheets(Sheets.Count) 
End Sub