ERROR IN VBA CODE

Sub emailing()
'
' emailing Macro
'
' Keyboard Shortcut: Ctrl+g
'
  Dim x As String
Dim icolumn As Integer
Dim jrow As Integer
Dim emal As String

    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
   
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
   

For jrow = 4 To 10000
For icolumn = 19 To 22

'x = Worksheets("Followupsheet").Cells(jrow, icolumn + 5).Value
Worksheets("Followupsheet").Cells(4, 24).Value = jrow

If x = "sendemail" Then
Set objOutlook = CreateObject("Outlook.Application")
    Set objEmail = objOutlook.CreateItem(olMailItem)
    With objEmail
    'email to column 21 in the respective row i.e. column u
        .To = Worksheets("Followupsheet").Cells(jrow, 28).Value
    'cc to column 22 in the respective row i.e. column v
        .Cc = Worksheets("Followupsheet").Cells(jrow, 29).Value
       
        .Subject = "Escalation email Order # " & Worksheets("Followupsheet").Cells(jrow, 4).Value & " - " & Worksheets("Followupsheet").Cells(jrow, 3).Value
        .Body = Worksheets("Followupsheet").Cells(jrow, icolumn).Value
        .SEND
    End With
   
    ' CLEAR.
Set objEmail = Nothing:    Set objOutlook = Nothing


Else
End If



    Next icolumn
   
    Next jrow



 
   
End Sub


I have written this code to send emails, but there is some issue because of which the emails are not been sent when we try to run the code. Debugger highlights the above bold lines.  CAN YOU TELL IF THERE IS ANY SYNTAX ERROR OR REFERENCE ERROR