This is what I have come up with so far, but I am having trouble:
Private Sub CommandButton1_Click()
Dim FName As Variant
Dim Sep As String
Dim wsSheet As Worksheet
Dim nFileNum As Integer
Sep = InputBox("Enter a single delimiter character ,", _
"Convert to CSV")
For Each wsSheet In...