Sub Tester()
Dim s As Worksheet
Dim s2 As Worksheet
Dim r As Long, x

Set s = ActiveSheet
Set s2 = ThisWorkbook.Sheets("Sheet2")

r = 1
x = Application.InputBox("Enter number of characters", _
, , , , , , 1)

Do While s.Cells(r, 1).Value < ""
s2.Cells(r, 1).Value = Left(s.Cells(r, 1).Value, x)
r = r + 1
Loop
End Sub

Tim



"Sylvia" wrote in
message ...

In the new worksheet.


--
Sylvia
------------------------------------------------------------------------
Sylvia's Profile:
http://www.excelforum.com/member.php...o&userid=30300
View this thread: http://www.excelforum.com/showthread...hreadid=506668