along the lines of:?
Dim rng As Range
Sheets("Chris Error Code List").Select
Set rng = Cells.Find(What:="009", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
rng.Offset(columnOffset:=1).Activate
Selection.ShowDetail = True
ActiveSheet.Name = "009"
End If
Lots of error codes? Perhaps (untested):
Dim rng As Range
ErrorCodeList = Array("009", "008", "007", "666", "111")
For Each ErrorCode In ErrorCodeList
Set rng = Sheets("Chris Error Code List").Cells.Find(What:=ErrorCode, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
rng.Offset(columnOffset:=1).ShowDetail = True
ActiveSheet.Name = ErrorCode
End If
Next 'ErrorCode