Try:

CodeDisplay More`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.