corrected comment

vzhomeexperiments · Aug 21, 2018 · b83d9f4 · b83d9f4
1 parent 507a7fd
commit b83d9f4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Bonus_SaveInSharePoint.xlsm b/Bonus_SaveInSharePoint.xlsm
diff --git a/Programs.bas b/Programs.bas
@@ -297,7 +297,7 @@ Sub Push2SharePoint()
     ' define variables
     Dim SharePointPath As Variant
     Dim FileAsNamed As Variant
-    ' retrieve SharePoint path indicated by the user inside Excel Sheet named "Select" on cell B33
+    ' retrieve SharePoint path indicated by the user inside Excel Sheet named "Select" on cell B9
     SharePointPath = ThisWorkbook.Sheets("Summary").Range("B9").Text
     ' provide some error message if it's not populated
     On Error GoTo NoStorageSelected
@@ -322,7 +322,7 @@ Exit Sub
 ' Error Management
 NoStorageSelected:
            MsgBox "Error: Excel can not reach SharePoint Folder Storage location" & vbCrLf & _
-           "Possible reasons are: Storage location was not defined in the Worksheet 'Select' cell B33 or " & vbCrLf & _
+           "Possible reasons are: Storage location was not defined in the Worksheet 'Select' cell B9 or " & vbCrLf & _
            "Not having sufficient previledges to access SharePoint location " & vbCrLf & _
            "Make sure to add forward slash after SharePoint Document Library"
            Exit Sub