diff --git a/1CorRel.vb b/1CorRel.vb index df4a614..f845799 100644 --- a/1CorRel.vb +++ b/1CorRel.vb @@ -45,7 +45,7 @@ Sub subRunCorrelation As Object sSheetName = oRange.getSpreadsheet.getName If oSheets.hasByName (sSheetName & "_correl") Then sExisted = "Spreadsheet """ & sSheetName & "_correl"" exists. Overwrite?" - nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) + nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) If nResult = IDNO Then Exit Sub End If diff --git a/2PTTest.vb b/2PTTest.vb index ff44a77..fd58f44 100644 --- a/2PTTest.vb +++ b/2PTTest.vb @@ -45,7 +45,7 @@ Sub subRunPairedTTest As Object sSheetName = oRange.getSpreadsheet.getName If oSheets.hasByName (sSheetName & "_ttest") Then sExisted = "Spreadsheet """ & sSheetName & "_ttest"" exists. Overwrite?" - nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) + nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) If nResult = IDNO Then Exit Sub End If diff --git a/3ITTest.vb b/3ITTest.vb index 2f673b4..ff2f446 100644 --- a/3ITTest.vb +++ b/3ITTest.vb @@ -57,7 +57,7 @@ Sub subRunIndependentTTest As Object Else sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?" End If - nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) + nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) If nResult = IDNO Then Exit Sub End If diff --git a/4ANOVA.vb b/4ANOVA.vb index 4d922fe..7ac92c3 100644 --- a/4ANOVA.vb +++ b/4ANOVA.vb @@ -57,7 +57,7 @@ Sub subRunANOVA As Object Else sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?" End If - nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) + nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) If nResult = IDNO Then Exit Sub End If diff --git a/5Chi2GoF.vb b/5Chi2GoF.vb index 1114278..2ed4418 100644 --- a/5Chi2GoF.vb +++ b/5Chi2GoF.vb @@ -45,7 +45,7 @@ Sub subRunChi2GoodnessOfFit As Object sSheetName = oRange.getSpreadsheet.getName If oSheets.hasByName (sSheetName & "_chi2") Then sExisted = "Spreadsheet """ & sSheetName & "_chi2"" exists. Overwrite?" - nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) + nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION) If nResult = IDNO Then Exit Sub End If