Skip to content

Instantly share code, notes, and snippets.

@airstrike

airstrike/jumpstart.bas

Created August 5, 2016 15:18
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save airstrike/ffe051c0ea7f0c93e83493a3009b1dbc to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save airstrike/ffe051c0ea7f0c93e83493a3009b1dbc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
jumpstart.bas
Sub JumpStart()
Dim N As Name
Set N = ActiveWorkbook.Names("CIRC")
On Error GoTo ErrHandler:
If N.RefersToRange.Value = 1 Then N.RefersToRange.Value = 0
Application.Calculate
N.RefersToRange.Value = 1
Exit Sub
ErrHandler:
N.RefersToRange.Value = 0
Resume Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment