Excel VBA: Rækkevidde af global variabel?

Sub WriteDataToDraftSheet()
' ny procedure der skriver forecast-data ind i et ark i forecastfilen
  If AutoRunForecast = True Then ' hvis det er en AutoForecas
    ' Her skal der så placeres en kode der får den til at køre glat igennem uden bruger skal tage stilling til dit og dat.


  End If

End sub

Option Explicit

    Public AutoRunForecast As Boolean ' declaire my variable


Sub SettingsFunctions()

' Initialize

      AutoRunForecast = GetSetting("FolmerJensenFOLJ", "FermPlanValues", "AutoRunForecast", True) ' Get previous saved value

      Dim MsgBoxText As String
      MsgBoxText = "Current value in AutoRunForecast is: " & AutoRunForecast & vbNewLine
'
' Request value from user
      If MsgBox(MsgBoxText, vbYesNo + vbQuestion) = vbYes Then
          MsgBox "Writing to forecast file will continue"
          WriteDataToDraftSheet
      End If


' Save value for usage in other files...
      SaveSetting "FolmerJensenFOLJ", "FermPlanValues", "AutoRunForecast", True                ' Save value to Registry

' when we dont need yhe AutoRunForecast-value any more...
      If AutoRunForecast = True Then
        On Error Resume Next                                                    ' To avoid error, if key doesn't exists
        DeleteSetting "FolmerJensenFOLJ", "FermPlanValues", "AutoRunForecast"    ' Delete value from Registry
        DeleteSetting "FolmerJensenFOLJ", "FermPlanValues"                      ' Delete section from Registry
        DeleteSetting "FolmerJensenFOLJ"                                        ' Delete application key from Registry
      End If

End Sub

If AutoRunForecast = True Then