Try:

Display MoreCode

- Private Sub RiserNo_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- With Application
- .ScreenUpdating = False
- .Calculation = xlCalculationManual
- End With
- Dim riserNum As Range, srcWB As Workbook, workRange As Range, ws As Worksheet
- Set srcWB = ActiveWorkbook
- For Each ws In srcWB
- With ws
- lRow = .Range("A" & .Rows.Count).End(xlUp).Row
- Set riserNum = .Rows(6).Find(RiserNo.Value, LookIn:=xlValues, lookat:=xlWhole)
- If Not riserNum Is Nothing Then
- Set workRange = .Range(.Cells(10, riserNum.Column).Address).Resize(lRow - 9, 4)
- For Each rng In workRange
- Select Case rng.Interior.Color
- Case RGB(255, 0, 0)
- FirstAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(0, 255, 0)
- SecondAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(0, 0, 255)
- ThirdAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(255, 0, 255)
- FourthAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(255, 255, 0)
- FifthAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(155, 155, 155)
- SixthAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- Case RGB(255, 165, 0)
- SeventhAnchor.Value = Mid(.Range("A" & rng.Row), 2, 99999)
- End Select
- Next rng
- End If
- End With
- Next ws
- With Application
- .ScreenUpdating = True
- .Calculation = xlCalculationAutomatic
- End With
- End Sub

It shows object doesn't support this property.