diff --git a/modules/Saving/R/save_metrics.R b/modules/Saving/R/save_metrics.R
index 9cd1fb0ddcfd6eba2fe71e046c717f367d180323..57063a0c88eb3b0fc0f20eb3eccf389e34bd59b7 100644
--- a/modules/Saving/R/save_metrics.R
+++ b/modules/Saving/R/save_metrics.R
@@ -151,7 +151,7 @@ save_metrics <- function(recipe,
         country <- get_countries(grid)
         ArrayToNc(append(country, time, subset_metric), outfile)
       } else if (tolower(agg) == "region") {
-        region <- array(1:dim(skill[[1]])['region'], c(dim(skill[[1]])['region']))
+        region <- array(1:dim(metrics[[1]])['region'], c(dim(metrics[[1]])['region']))
         # TODO: check metadata when more than 1 region is store in the data array
         metadata <- list(region = list(long_name = data_cube$attrs$Variable$metadata$region$name))
         attr(region, 'variables') <-  metadata