How can I make this work?
When debugging, its showings all the correct information, but gives me an this error;
"Invalid procedure call or argument"
With UserForm1sFileName = ActiveWorkbook.Path & "\" & Left(UserForm1.TextBox1.Text, InStr(1, UserForm1.TextBox1.Text, ".") - 1) & ".csv"
End...