Private Sub SubB(Target As Range)       'Code to work on Coumn B End Sub    Private Sub SubEF(Target As Range)       'Same As Above For columns F & E      'repeat As needed End Sub
I don't understand what the "Code to work on Column B" is. I tried the code below but that doesn't work. It just doesn't do anything. No error or result.

Private Sub SubB(Target As Range)
Dim MyDesc1 As Range
MyDesc1 = Application.WorksheetFunction.VLookup(Target, [PN_STATUS], 2, 0)
Application.StatusBar = Target & " - " & MyDesc1
End Sub