ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,226
- Office Version
- 2007
- Platform
- Windows
When im closing a worksheet i see RTE 13 Type mismatch.
I debug and this is shown in yellow.
I debug and this is shown in yellow.
Rich (BB code):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("P6:U6")) _
Is Nothing) Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End With
End If
End Sub
If we need to change the code thats fine,i was only using it to force the letters in P6:U6 to uppercase nowhere else.