Private Sub ComboBox2_Change()
Set c = Sheets("catalogue").Columns("A").Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox6 = c.Offset(0, 4)
If c.Offset(0, 5) = "" Then
texbox7 = Format(0.4, "0.00%")
Else
TextBox7 = Format(c.Offset(0, 5), "0.00%")
End If
End If
End Sub