simple macro

[Oli]

Hi

I need a simple excel macro that searches the first 1000 rows, column A
only, of the active worksheet and all text past the first space of each cell
is copied into the B column. Any ideas?

Cheers
Oli

[Norman Yuan]

Following VBA code will do what you want:

Sub PartialCopyAToB()

Dim strA As String
Dim strB As String
Dim sht As Excel.Worksheet

Dim i As Integer
Dim intSpace As Integer

Set sht=ThisWorkbook.ActiveSheet

For i = 1 To 1000
strA = sht.Cells(i, 1)
intSpace = InStr(1, strA, " ")
If intSpace > 0 Then
strB = Mid(strA, intSpace + 1)
Else
strB = strA
End If
sht.Cells(i, 2) = strB
Next

End Sub

HTH

"Oli" <ol*@NOSPAMoliwoods.co.uk> wrote in message
news:bt**********@sparta.btinternet.com...

Hi

I need a simple excel macro that searches the first 1000 rows, column A
only, of the active worksheet and all text past the first space of each cell is copied into the B column. Any ideas?

Cheers
Oli