vba case without select case Compile Error

[simora]

I'm having problems implementing a Select Case statement. Keep getting case without select case at Case condition2.

Need help.

Thanks

Select Case Condition
    
          Case condition1
        
                    If Cells(rsRow, rsCol).Value = "" Then
                        Cells(rsRow, rsCol) = TextBox2.Value

	Case condition2
                 
                    If Cells(rsRow, rsCol).Value > 0 And iVal = 1 Then
                        Cells(rsRow, rsCol).Select
                        ActiveCell.Offset(1).EntireRow.Insert
                        ActiveCell.Offset(1, 0).Value = TextBox2.Value
	
	Case condition3

                  
                    If Cells(rsRow, rsCol).Value > 0 And iVal > 1 Then
			ActiveCell.Offset(1, 0).Value = TextBox3.Value
	Case Else

                            MsgBox "Case Else : The Code DID NOT Execute "
				ActiveCell.Offset(1, 0).Value = TextBox4.Value


    End Select

 

[JoeMo]

In the condition2 part try changing this:
ActiveCell.Offset(1).EntireRow.Insert

to this:
ActiveCell.Offset(1,0).EntireRow.Insert

 

[xenou]

Your IFs need END IFs:

SELECT CASE ...

    Case ....
        IF ... Then
        End If

    Case ....
        IF ... Then
        End If

End SELECT

 

[simora]

Thanks Guys:

Both suggestions helped are are appreciated.
I've gotten it to work with some other little mods.

Thanks