Hi,

Do it in the same column with a macro. Right click your sheet tab, view code
and paste this in and run it.

Sub versive()
Lastrow = Worksheets("data").Cells(Rows.Count, "A").End(xlUp).Row
For Each r In Worksheets("data").Range("A1:A" & Lastrow)
If Not r.HasFormula Then
r.Value = UCase(Left(r.Value, 1)) & Mid(r.Value, 2)
End If
Next
End Sub

Mike

"rodchar" wrote:

hey all,
is there an easy way to capitalize just the first letter in a column and
leave the rest as is?

for example,
pubID -- PubID

thanks,
rodchar