I have the following

Set iSect = Application.Intersect(Range("UserName"), Target)
If Not iSect Is Nothing Then
For Each tCell In iSect
If tCell.Value < UCase(tCell.Value) Then
tCell.Value = UCase(tCell.Value)

If Len(Trim(tCell.Value)) = 0 Then tCell.Value = "Enter Name"
If Len(Trim(tCell.Value)) = 0 Then Call DefaultValueMsg
End If

Next
End If

How can I correct this so the last two IF statements work. The first
portion works fine.