Missing line

[Totmos]

I have to chose the words (names) with upper case in the begging. In the
list [a:a] there are mix more then 25 thousand of different words, most
with lower case

For Each cell In [a:a]
cell.Select
a = Selection.Value
if a = "" Then GoTo SLUTSelection.Offset(0, 1).Value = a
End if
Next cell
SLUT:


Thanks in advance
Totmos

 

[Trevor Shuttleworth]

Totmos

try this:

Sub FindUCase()
Dim Cell As Range
For Each Cell In [a:a]
With Cell
If .Value = "" Then GoTo SLUT
If Left(.Value, 1) = UCase(Left(.Value, 1)) Then
.Offset(0, 1).Value = .Value
End If
End With
Next 'Cell
SLUT:
End Sub

Regards

Trevor

I have to chose the words (names) with upper case in the begging. In the
list [a:a] there are mix more then 25 thousand of different words, most
with lower case

For Each cell In [a:a]
cell.Select
a = Selection.Value
if a = "" Then GoTo SLUTSelection.Offset(0, 1).Value = a
End if
Next cell
SLUT:


Thanks in advance
Totmos