Experimente trocas as linhas que envolvem a plan1 por essas:

If opt3501.Value = True Then

Plan1.Select
With ThisWorkbook.Worksheets("FORNO3501")
            Select Case Range("E2").Value
                Case "DESENVOLVIMENTO"
                    For Each TextBox In Me.Controls
                        BackColor = &HFFFF&
                    Next
               
                Case "PETROLEO"
                    For Each TextBox In Me.Controls
                        BackColor = &HFF00&
                    Next
                    
                Case "RETRABALHO"
                    For Each TextBox In Me.Controls
                        BackColor = &HFF80FF
                    Next
                
                Case "DEVOLUÇÃO"
                    For Each TextBox In Me.Controls
                        BackColor = &H8080FF
                    Next
                
                Case "SIMILAR"
                    For Each TextBox In Me.Controls
                        BackColor = &H8000000D
                    Next
                
            End Select
End If

Embora, eu não entendi muito bem os Ifs que vc colocou. Como é só uma parte do código, talvez desse pra simplificar mais.

PS: Não testado.