Change this line:

Set r = C5:F5

Change to:

Set r = Range("C5")

--
Biff
Microsoft Excel MVP


"Montu" wrote in message
...
C5:F5 is merge cell of sheet 1, I want whenever wright somthing on the
merge
cell it will be automatically capital letter without using caps lock
button,
For this reason I wrote for help & got a VBA code from this forum. Then I
copy, past & change the range in my VBA Editor follows -
Private Sub Worksheet_Change(ByVal Target As Range)
Set r = C5:F5
Application.EnableEvents = False
If Application.WorksheetFunction.IsText(r) Then
r.Value = UCase(r.Value)
End If
Application.EnableEvents = True
End Sub
but its not working, What should I do. Help me