Hi,
the problem in your piece of code is that TestSet_Field(... object is no more recognize in ManualRun module. What you can get directly are something like Run_Fields(.. or Step_Fields(...
so to do what you need the sub could be something like:
Sub HideManualRunFields
Dim myTestSet
'retrieve the TestSet from the Run object
set myTestSet = TDConnection.TestSetFactory.Item(Run_Fields("RN_CYCLE_ID").Value)
'Fill the RunName with the value of the TestSet Custom Field
Run_Fields("RN_RUN_NAME")= myTestSet.Field("CY_USER_01")
'destroy the TestSet object
set myTestSet = Nothing
end Sub
Hope this helps.
Ciao,
Massimo.