Sub SubjectFix()

On Error Resume Next
    Dim objFolder As Outlook.MAPIFolder
    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem
    Dim folderID As String
    
     Set objNS = Application.GetNamespace("MAPI")

For Each objItem In Application.ActiveExplorer.Selection
   'If objFolder.DefaultItemType = olMailItem Then
      If objItem.Subject = "FW: blah blah blah" Then
         objItem.Subject = "blah blah blah"
      End If
Next

End Sub