you can loop the data so it will fit your layout but I would use
something like

Dim strTemp As String

Dim i As Integer
i = 0
Do Until Trim(Range("A1").Offset(i, 0).Value) = ""
strTemp = Trim(Range("A1").Offset(i, 0).Value)
strTemp = Left(UCase(strTemp), 1) & Right(strTemp, Len(strTemp)
- 1)
Range("A1").Offset(i, 0).Value = strTemp
i = i + 1
Loop

Keith
www.kjtfs.com


---
Message posted from http://www.ExcelForum.com/