Vba if statement help

[bloodmilksky]

Hi Guys,

I have a macro that enters the application username as per below. but one of the users names comes up with a dash and I am trying to say that if the username comes up with the dash then replace it with the name in the statement. but it keeps coming up with an error.

can anyone help please?

    Sheets("Request Form").Select    Range("B7").Select
    Selection.ClearContents
    Sheets("Request Form").Select
    Range("B7").Select
    Range("B7") = Application.UserName
    If Sheets("Request Form").Range("B7").Value ("James Charles-Bradfield") Then.("RJames Charles Bradfield")

 

[wideboydixon]

May be better to use a Select in case you come across any other names that need changing in future:

    Sheets("Request Form").Select
    Select Case Application.UserName
        Case "James Charles-Bradfield"
            Range("B7").Value = "RJames Charles Bradfield"
        Case Else
            Range("B7").Value = Application.UserName
    End Select

WBD

 

[bloodmilksky]

Perfect Thank You Sooooo Much Much ^_^