Works Every time... Because I know best.
'Status Bar Display
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$C$2:$M$3" Then
Application.StatusBar = "Created by: ..."
Exit Sub
End If
If Intersect(Target, Range("B9:B28,D9:D28,I9:L28,E9:E28")) Is Nothing Then Exit Sub 'Entire Range for Status Bar Display
sr = Selection.Row
sc = Selection.Column
inquiry = Cells(sr, sc)
MyDesc1 = Application.WorksheetFunction.VLookup(inquiry, [PN_STATUS], 2, 0)
MyDesc2 = Application.WorksheetFunction.VLookup(inquiry, [SUPPLY_TYPE], 2, 0)
MyDesc3 = Application.WorksheetFunction.VLookup(inquiry, [UOM], 2, 0)
MyDesc4 = Application.WorksheetFunction.VLookup(inquiry, [MAKE_BUY], 2, 0)
MyDesc5 = Application.WorksheetFunction.VLookup(inquiry, [PP], 2, 0)
Application.StatusBar = inquiry & " - " & MyDesc1 & MyDesc2 & MyDesc3 & MyDesc4 & MyDesc5
If Intersect(Target, Range("$E$9:$E$28")) Is Nothing Then Exit Sub
sr = Selection.Row
sc = Selection.Column
inquiry = Cells(sr, sc)
MyDesc6 = Application.WorksheetFunction.VLookup(inquiry, [OIB], 8, 0)
Application.StatusBar = inquiry & ": Quantity On-Hand= " & MyDesc6
Exit Sub
End Sub