Sub Ana()

Dim iInputRow As Long
Dim iEquityRow As Long
Dim iSpotFxRow As Long
Dim iOptionFXRow As Long
Dim iOptionRow As Long
Dim iCFDRow As Long
Dim iFutureRow As Long
Dim sType As String

iInputRow = 2
iEquityRow = 2


While InputSheet.Cells(iInputRow, 2) < ""
sType = InputSheet.Cells(iInputRow, 3)


If sType = "Equity" Then
'paste equity

End If


Wend


End Sub


This part: While InputSheet.Cells(iInputRow, 2) < ""

Is giving me an error and I'm not quite sure why?
Could someone help me?

What do you mean by: InputSheet ?
You seem to have an endless loop
best wishes

--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Ana" wrote in message
...
Sub Ana()

Dim iInputRow As Long
Dim iEquityRow As Long
Dim iSpotFxRow As Long
Dim iOptionFXRow As Long
Dim iOptionRow As Long
Dim iCFDRow As Long
Dim iFutureRow As Long
Dim sType As String

iInputRow = 2
iEquityRow = 2


While InputSheet.Cells(iInputRow, 2) < ""
sType = InputSheet.Cells(iInputRow, 3)


If sType = "Equity" Then
'paste equity

End If


Wend


End Sub


This part: While InputSheet.Cells(iInputRow, 2) < ""

Is giving me an error and I'm not quite sure why?
Could someone help me?

Doesn't look like you're looping.
Before Wend should you add
iInputRow = iInputRow + 1


"Ana" wrote in message
...
Sub Ana()

Dim iInputRow As Long
Dim iEquityRow As Long
Dim iSpotFxRow As Long
Dim iOptionFXRow As Long
Dim iOptionRow As Long
Dim iCFDRow As Long
Dim iFutureRow As Long
Dim sType As String

iInputRow = 2
iEquityRow = 2


While InputSheet.Cells(iInputRow, 2) < ""
sType = InputSheet.Cells(iInputRow, 3)


If sType = "Equity" Then
'paste equity

End If


Wend


End Sub


This part: While InputSheet.Cells(iInputRow, 2) < ""

Is giving me an error and I'm not quite sure why?
Could someone help me?

While Len(InputSheet.Cells(iInputRow, 2).Formula) 0
sType = InputSheet.Cells(iInputRow, 3)
If sType = "Equity" Then
'paste equity
End If
iInputRow = iInputRow + 1
Wend

"Ana" wrote:

Sub Ana()

Dim iInputRow As Long
Dim iEquityRow As Long
Dim iSpotFxRow As Long
Dim iOptionFXRow As Long
Dim iOptionRow As Long
Dim iCFDRow As Long
Dim iFutureRow As Long
Dim sType As String

iInputRow = 2
iEquityRow = 2


While InputSheet.Cells(iInputRow, 2) < ""
sType = InputSheet.Cells(iInputRow, 3)


If sType = "Equity" Then
'paste equity

End If


Wend


End Sub


This part: While InputSheet.Cells(iInputRow, 2) < ""

Is giving me an error and I'm not quite sure why?
Could someone help me?