Your a bit low on detail so I have assumed Column 5 of your databse is
column E so change to suit. Right click the worksheet, view code and paste
this in:-
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E100")) Is Nothing Then ' alter to suit
If Target.Value = "Client" Then
Target.EntireRow.Select
Selection.Font.Bold = True
Target.Select
End If
End If
End Sub
Thanks Mike. The deciding column is D. So this is what I paste :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1100")) Is Nothing Then
If Target.Value = "Client" Then
Target.EntireRow.Select
Selection.Font.Bold = True
Target.Select
End If
End If
End Sub
Nothing happened. Plse tell me what have I missed? Thanks