I am tring to change the CodeName of an excel WorkSheet.

I found this example for VBA on the web, but I am unable to get it to work.

Sub RenameCodeName(oWks As Sheet, sNewName As String)
oWks.Parent.VBProject.vbComponents(oWks.CodeName).Properties("_CodeName") = sNewName
End Sub

Example:
oExcel = CreateObject("Excel.Application")
oExcel.WorkBooks.OPEN("TestFile.xls")
*-- File contains a worksheet called "Sheet1"
oExcel.sheets("Sheet1").COPY(oExcel.Worksheets("Sheet1"))
lcTempCopySheet = "Sheet1 (2)"
oExcel.sheets(lcTempCopySheet).NAME = "ReNamedSheet"
oExcel.Sheets("ReNamedSheet").SELECT
oWks = oExcel.ActiveSheet
oWks.Parent.VBProject.vbComponents(oWks.CodeName).Properties("_CodeName") = "ReNamedCode" && generates an error
*-- The error that I am getting is Function argument value, type, or count is invalid