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