Dim X As Range
On Error Resume Next
If Selection.Count > 100 Then
MsgBox "Fazla Alan Seçtiniz.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Exit Sub
End If
For Each X In Selection
X.Value = UCase(Replace(Replace((X.Value), "ý", "I"), "i", "I"))
Next