diff --git a/Cytoscape/extract_mrna_names_from_mirna.R b/Cytoscape/extract_mrna_names_from_mirna.R
new file mode 100644
index 0000000000000000000000000000000000000000..879e397a8a087424f01fbae5489237ce2db3032f
--- /dev/null
+++ b/Cytoscape/extract_mrna_names_from_mirna.R
@@ -0,0 +1,14 @@
+library(readxl)
+
+df <- read_excel("C:/Users/Emre/Desktop/multimir_results_cyto.xlsx")
+mrna <- read_excel("C:/Users/Emre/Desktop/mRNAs.xlsx")
+
+mrna_genes <-  mrna$external_gene_name
+
+filtered_df <- df[df$target_symbol %in% mrna_genes | duplicated(df$target_symbol) %in% mrna_genes, ]
+
+print(filtered_df)
+
+library(writexl)
+output_file <- ("C:/Users/Emre/Desktop/cytoscape.xlsx")
+write_xlsx(filtered_df, output_file)