Sub IncJump()
' Paul Beverley - Version 27.01.17
' Adds one to the following number (or increase the letter) then jumps
  Call NumberIncrement
  Call FindFwd
End Sub