diff --git a/ApplicationCode/Application/Tools/RiaProjectModifier.cpp b/ApplicationCode/Application/Tools/RiaProjectModifier.cpp
index 82fae44ba2..168359af62 100644
--- a/ApplicationCode/Application/Tools/RiaProjectModifier.cpp
+++ b/ApplicationCode/Application/Tools/RiaProjectModifier.cpp
@@ -23,6 +23,7 @@
 #include "RimEclipseCaseCollection.h"
 #include "RimEclipseInputCase.h"
 #include "RimEclipseResultCase.h"
+#include "RimGeoMechCase.h"
 #include "RimIdenticalGridCaseGroup.h"
 #include "RimOilField.h"
 #include "RimProject.h"
@@ -170,8 +171,9 @@ void RiaProjectModifier::replaceCase(RimProject* project)
     
     for (RimCase* rimCase : allCases)
     {
-        RimEclipseResultCase* resultCase = dynamic_cast<RimEclipseResultCase*>(rimCase);
-        if (resultCase)
+        RimEclipseResultCase* eclipseResultCase = dynamic_cast<RimEclipseResultCase*>(rimCase);
+        RimGeoMechCase*       geomechCase       = dynamic_cast<RimGeoMechCase*>(rimCase);
+        if (eclipseResultCase || geomechCase)
         {
             for (auto item : m_caseIdToGridFileNameMap)
             {
@@ -181,11 +183,19 @@ void RiaProjectModifier::replaceCase(RimProject* project)
                     caseIdToReplace = firstCaseId(project);
                 }
 
-                if (caseIdToReplace == resultCase->caseId())
+                if (caseIdToReplace == rimCase->caseId())
                 {
                     QString replaceFileName = item.second;
-                    resultCase->setGridFileName(replaceFileName);
-                    resultCase->caseUserDescription = caseNameFromGridFileName(replaceFileName);
+                    if (eclipseResultCase)
+                    {
+                        eclipseResultCase->setGridFileName(replaceFileName);
+                        eclipseResultCase->caseUserDescription = caseNameFromGridFileName(replaceFileName);
+                    }
+                    else if (geomechCase)
+                    {
+                        geomechCase->setFileName(replaceFileName);
+                        geomechCase->caseUserDescription = caseNameFromGridFileName(replaceFileName);
+                    }
                 }
             }
         }