I cant understand why it is is telling me Syntax Error, maybe i just cant see it...The syntax error occurs at Process_Trades(Trade, TradeNumber) bolded below...
Code:
Sub Get_Trades(TradeFile)
Dim Trade As String
Dim TradeNumber As Integer
TradeNumber = 1
'Get 1 Trade from trade file
Trade = Mid(TradeFile, CharCount, 2000)
'Process trades
If Left(Trade, 1) = "A" Or Left(Trade, 1) = "P" Then
[B]Process_Trades(Trade, TradeNumber)[/B]
TradeNumber = TradeNumber + 1
End If
-----------------------------------------------------------
Sub Process_Trades(Trade As String, TradeNumber As Integer)
Range("a7").Value = "Trades"
Set TradeRow = Range("a65000").End(xlUp).Offset(1, 0)
'Add Trade Data to Column A, Format as Text
TradeRow.Value = Trade
TradeRow.NumberFormat = "@"
'Add Trade Number to Column B
If Len(TradeRow.Value) > 1 Then
TradeRow.Offset(0, 1).Value = TradeNumber
End If
Last edited: