I appear to be getting a "Subscript out of range" error and highlights this section of code for the first:

Workbooks.Add.Sheets("Sheet1").Range("A1:S25").Value = _
         ThisWorkbook.Sheets("Sheet1").Range("A1:S25").Value
and this part for the second:

[code ]ThisWorkbook.Sheets("Sheet1").Range("A1:S25").Copy _
Workbooks.Add.Sheets("Sheet1").Range("A1")
[/code]