diff --git a/R/MultiCell.R b/R/MultiCell.R
index 487e2c577..7ec80a875 100644
--- a/R/MultiCell.R
+++ b/R/MultiCell.R
@@ -811,7 +811,7 @@ GeoLiftMultiCell <- function(Y_id = "Y",
   GeoLiftResults <- list()
 
   for(cell in 1:k){
-    data_aux <- data %>% dplyr::filter(!(location %in% unlist(locations[-c(cell)]) ))
+    data_aux <- data %>% dplyr::filter(!(location %in% tolower(unlist(locations[-c(cell)])) ))
     aux <- GeoLift(Y_id = Y_id,
                    time_id = time_id,
                    location_id = location_id,