diff --git a/Codigo/Hogar.bas b/Codigo/Hogar.bas
index 1de3467c..e5984b1f 100644
--- a/Codigo/Hogar.bas
+++ b/Codigo/Hogar.bas
@@ -28,7 +28,7 @@ Attribute VB_Name = "Hogar"
 '
 Option Explicit
 
-Public Const NUMCIUDADES    As Byte = 6
+Public Const NUMCIUDADES    As Byte = 7
 
 Public Ciudades(1 To NUMCIUDADES)         As t_WorldPos