Copy Hidden Sheets No Longer Selects the Sheet

In Microsoft Excel 95, when you copy a hidden sheet the sheet remains active. In Microsoft Excel 97, the sheet is not active, so code that relies on the ActiveSheet property will fail. An example of code that will not work:

Sub CopySheet()
    Sheets("HiddenSheet").Copy Before:=Sheets(1)
    MsgBox ActiveSheet.Name & "Has been copied."
End Sub

To work around this:

Sub Excel97CopySheet()
    Dim wSheetName as Worksheet
    Sheets(wSheetName).Copy Before:=Sheets(1)
    MsgBox wSheetName & "Has been copied."
End Sub