esto es otra parte que sale en el archivo original. Categoria = Replace(Sheets("inputs").Range("c7").Value, " ", "-")
provincia = Replace(Sheets("inputs").Range("d7").Value, " ", "+")
provincia = Replace(provincia, ",", "%2C")
URL = "https://www.yellowpages.com/search?search_terms=" & Categoria & "&geo_location_terms=" & provincia