Password før macro/VBA køre

Hej,

Jeg har lavet følgende kode, som er tilknyttet en knap i Excel. Når jeg har indtastet koden, så får jeg fejl 400. Jeg kan ikke lige se, hvad der skyldes fejlen,. Håber I kan hjælpe


Sub RunMacro()
    Dim strPassTry As String
    Dim strPassword As String
    Dim lTries As Long
    Dim bSuccess As Boolean
   
    strPassword = "Fog"
    For lTries = 1 To 3
        strPassTry = InputBox("Enter Password please", "RUN MACRO")
        If strPassTry = vbNullString Then Exit Sub
        bSuccess = strPassword = strPassTry
        If bSuccess = True Then Exit For
        MsgBox "Password incorrect"
    Next lTries
   
    If bSuccess = True Then
   
  Sheets("Ark4").Select
  Range("D2").Select
  ActiveCell.FormulaR1C1 = "Hej med dig"
  Range("A1").Select
 
  End If