Change the line near the top which reads.Name = "GE"to.Name = Range("B1")or.Name = Range("B1") & ".txt"