VBA Alternative to If Then Else

[michaeltsmith93]

The format of Application.UserName for people at my company is "Last, First". As a result, I've written a few lines that translate this to "First Last" and called it "FirstLast". I've used FirstLast throughout my code, but I'm now using the sheet with folks at another company whose UserName is already in format "First Last". Is there any way to get around writing an If Then Else statement (i.e., If InStr(1, Application.UserName, ",")) and putting my current code with "FirstLast" as the Then and copying and pasting my code and replacing "FirstLast" with Application.UserName in the Else? I see the same potential problem with Select Case.

 

[Fluff]

What's wrong with using an If statement?

 

[michaeltsmith93]

I wanted to avoid having to replace every instance of FirstLast with Application.UserName. I can use Find and Replace, but I just feel like an If statement is inelegant and wondered if I could somehow have Excel identify the format to begin with and use one variable in place of FirstLast and Application.Username, having already selected between the two at the beginning of the code. I guess that would involve For Each or something and might be less elegant/more processor-intensive?

 

[Fluff]

Without seeing your code you do something simple like

If InStr(1, Application.UserName, ",") Then
   'use you code
Else
   firstlast = Application.UserName
End If

 

[Tetra201]

Or modify your FirstLast code so that it outputs the "First Last" for any input.