Inputboxes

[Dummy Excel]

Hi All,
I have an inputbox

customer = UCase(InputBox("Enter Customer Name", "Customer", "XXX X"))

The problem I have is that some users may seperate the 2 words for the customer name, as later down the code I have a IF statement saying if the customer is A do this, if the B do this and so on.

My problem is, if the user seperates the customer, the IF statement wont find a match.
my code for the IF statement is:

    If customer = "XXXXX" Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="\\share\XXXXX\" & business & " - " & dept & ".xls"
        Application.DisplayAlerts = True
    Else
    If customer = "XXXXXX" Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename"\\share\XXXXXX\" & business & " - " & dept & ".xls"

        Application.DisplayAlerts = True
    Else
    If customer = "XXX XXXX" Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=""\\share\XXX XXXX\" & business & " - " & dept & ".xls"
        Application.DisplayAlerts = True
    End If
    End If
    End If

What can I do so that if the user seperates the 2 words it will put them together?

thanks
Sam

 

[Case_Germany]

Hi,

you can try it in such a way…

Sub Test()
    Dim strCustomer As String
    strCustomer = UCase(InputBox("Enter Customer Name", "Customer", "XXX X"))
    strCustomer = Application.WorksheetFunction.Substitute(strCustomer, " ", "")
    MsgBox strCustomer
End Sub

Case_Germany

 

[Dummy Excel]

thanks
that works perfectly