Nur eeinen Buchstaben zulassen

Private Sub ggWorksheet_SelectionChange(ByVal Target As Range)
Dim row As Integer
Dim col As Integer
For row = 10 To 30
For col = 10 To 30
'If Cells(row, col)  "s" And Cells(row, col)  "x" And Cells(row, col)  "u" Then Cells(row, _
col) = ""
'If Cells(row, col)  "w" And Cells(row, col)  = ""
Next col
Next row
End Sub