Renaming Sheets

I have a macro that takes a sheet and splits it into several different sheets, using various loops.

I am trying to rename the sheets using this code

                If Range("G2").Value = "Risk" Then
                ActiveSheet.Name = "R-" & Range("H2").Value
                ElseIf Range("G2").Value = "Issue" Then
                ActiveSheet.Name = "I-" & Range("H2").Value
                ElseIf Range("G2").Value = "Opportunity" Then
                ActiveSheet.Name = "O-" & Range("H2").Value
                End If

It just runs through and doesn't change the name of the sheet.