ActiveStyle = SheetMetal.GetActiveStyle() If ActiveStyle = "10ga GA Brt" Then SheetMetal.SetActiveStyle("10ga GA Brt (New)") ElseIf ActiveStyle = "10ga GA Jkt" Then SheetMetal.SetActiveStyle("10ga GA Jkt (New)") ElseIf ActiveStyle = "10ga SS 304L Solid" Then SheetMetal.SetActiveStyle("10ga SS 304L Solid (New)") ElseIf ActiveStyle = "12ga GA Brt" Then SheetMetal.SetActiveStyle("12ga GA Brt (New)") ElseIf ActiveStyle = "12ga GA Jkt" Then SheetMetal.SetActiveStyle("12ga GA Jkt (New)") ElseIf ActiveStyle = "14ga GA Brt" Then SheetMetal.SetActiveStyle("14ga GA Brt (New)") ElseIf ActiveStyle = "14ga GA Jkt" Then SheetMetal.SetActiveStyle("14ga GA Jkt (New)") ElseIf ActiveStyle = "14ga SS 304L Solid" Then SheetMetal.SetActiveStyle("14ga SS 304L Solid (New)") ElseIf ActiveStyle = "16ga GA Brt" Then SheetMetal.SetActiveStyle("16ga GA Brt (New)") ElseIf ActiveStyle = "16ga GA Jkt" Then SheetMetal.SetActiveStyle("16ga GA Jkt (New)") ElseIf ActiveStyle = "16ga SS 304L Solid" Then SheetMetal.SetActiveStyle("16ga SS 304L Solid (New)") ElseIf ActiveStyle = "18ga GA Brt" Then SheetMetal.SetActiveStyle("18ga GA Brt (New)") ElseIf ActiveStyle = "18ga GA Jkt" Then SheetMetal.SetActiveStyle("18ga GA Jkt (New)") ElseIf ActiveStyle = "18ga SS 304L Solid" Then SheetMetal.SetActiveStyle("18ga SS 304L Solid (New)") ElseIf ActiveStyle = "20ga GA Brt" Then SheetMetal.SetActiveStyle("20ga GA Brt (New)") ElseIf ActiveStyle = "20ga GA Jkt" Then SheetMetal.SetActiveStyle("20ga GA Jkt (New)") Else SheetMetal.SetActiveStyle("Default") iProperties.Value("Project", "Stock Number") = "Material no disponible para tolerancias" iProperties.Value("Project", "Description") = "Material no disponible para tolerancias" End If