Oh My Mistake, I got it working now. Thanks So much. One other question is there a way to make the Save as dialog appear instead to make it more convenient for the end-user?
Okay Thanks For Everything.That's a different question, hence start a new topic for it.
But first, use the Search function of the forum, because such questions are asked over and over again.
Dim sFileName As String
sFileName = Application.GetSaveAsFilename(FileFilter:="Text files (*.txt), *.txt")
If sFileName = "False" Then Exit Sub