JUMP CELL IN EXCEL SERIOR WISE

 Option Explicit

Sub FONTTEXTLOOP()

Dim COUNTER As Integer

For COUNTER = 1 To 9

ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = 3 Then Exit For

Next COUNTER

End Sub

BY COADING IF FORMULA IN EXCEL

 Option Explicit

Sub PASSORFAIL()

Dim MARKS As Byte

MARKS = ActiveCell.Offset(0, -2).Value

Select Case MARKS

Case 0 To 34

ActiveCell.Value = "F"

Case 35 To 49

ActiveCell.Value = "E"

Case Else

ActiveCell.Value = "A"

End Select

End Sub