Macro Help

[fcecconi]

I could use some help with my macro.  I am trying to set one object = another object and then jump to a new sheet

sub SelectCoContributor

        vCurrSheet = ActiveDocument.ActiveSheet.GetProperties.SheetId

      if vCurrSheet = "Document\SHCPDetails" then

            set vCoContributor = ActiveDocument.Fields("CO_CONTRIBUTOR_Name").GetPossibleValues

                  if vCoContributor.Count = "1" then

            ActiveDocument.Fields("CONTRIBUTOR_NAME").Value= ActiveDocument.Fields("CO_CONTRIBUTOR_NAME").Value

                    ActiveDocument.Fields("CONTRIBUTOR_NAME").SelectPossible

                    ActiveDocument.Fields("CO_CONTRIBUTORIMAGE").Clear

                      ActiveDocument.ActivateSheet "SHCP"

                End If

      End If

end sub

The BOLD RED line is where my macro is failing.  I could use a trigger to do the same function, but I need to call this macro several times

Thanks for you help!

Frank

[Clever_Anjos · Accepted solution]

ActiveDocument.Fields("CONTRIBUTOR_NAME").Select  vCoContributor(0).Text

should work

[fcecconi]

Thanks!  It works now