Find and Replace for MSAccess queries
Ever needed to duplicate a group of MS Access queries and then change a key piece of data in each one?
Use this VBA code to do it.

Public Function fnFindReplace(sQueryName As String, sFind As String, sReplace As String) As Boolean
     DoCmd.CopyObject , Replace(sQueryName, sFind, sReplace), acQuery,sQueryName
     CurrentDb.QueryDefs(Replace(sQueryName, sFind, sReplace)).SQL =
        Replace(CurrentDb.QueryDefs(Replace(sQueryName,sFind,sReplace)).SQL,sFind, sReplace)
End Function

Sub Usage()
  Call fnFindReplace("queryname", "texttofind", "texttoreplace")
End Sub