Hi,

I have tried to create VB. but i can't get it to work could someone help me with this?

I have created the one below but think there might be to many lines maybe around 1000 lines like that. hoping someone could help me.

Dim objExcel As Excel.Application

Dim objWorkbook As Excel.Workbook

Dim objWorksheet As Excel.Worksheet

Dim xlRow As Integer

Dim x1Column As Integer

Dim CTY As Integer

Dim TEXT As String

Dim PRICE As String

Dim ACCOUNT As String

Dim NO_OF As String

Dim Count

xlRow = 1

Count = 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1

'If Not objWorksheet.Range("A" & xlRow).Value Like "678*" Then

'xlRow = xlRow + 1