Find and replace with exact string

As recommended by OllyXLS it would be best to see your code, so that we can determine what would/could cause the mistakes.

Maybe:

Sub carriecllek()
Cells.Replace "Room 1,2,3", "Room 1, Room 2, Room 3", xlPart ' Or xlWhole depending on if you replace part of a cell or an entire cell
End Sub