Next Without For Error

[mangaldeep]

    For Each rngCell In ThisWorkbook.Worksheets(1).Range("A6:BB" & LastRow)
       
      If rngCell.Column = "21" Then 'U
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "22" Then 'V
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "23" Then 'W
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "24" Then 'X
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "25" Then  'Y
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "26" Then  'Z
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "27" Then 'AA
            If rngCell.Value <> "" Then
                If Not IsNumeric(rngCell.Value) Then
                    rngCell.Interior.Color = 3
                    valid = 1
                End If
            End If
        ElseIf rngCell.Column = "28" Then 'AB
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "29" Then 'AC
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "30" Then 'AD
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "31" Then 'AE
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "32" Then 'AF
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "35" Then  'AI
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "36" Then 'AJ
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "37" Then  'AK
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "38" Then 'AL
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "43" Then   'AQ
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "44" Then   'AR
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "45" Then   'AS
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "46" Then   'AT
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "47" Then   'AU
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "48" Then   'AV
             If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "49" Then   'AW
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "50" Then   'AX
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "51" Then   'AY
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "52" Then   'AZ
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "53" Then   'BA
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        ElseIf rngCell.Column = "54" Then   'BB
            If rngCell.Value <> "" Then
               If Not IsNumeric(rngCell.Value) Then
                   rngCell.Interior.Color = 3
                   valid = 1
               End If
            End If
        End If
        
    Next rngCell
    If valid = 1 Then
        MsgBox "You are missing some Mendatory fields. This File Cant be Uploaded So Please Fill All Filed Carefully."
    End If
End Sub