That's because you need to add single quote when space or & is found in the sheet name.
So...
Sub track()
With Worksheets("Svc Report")
oldname = IIf(InStr(.Range("AK1").Value, "&"), "'" & .Range("AK1").Value & "'", .Range("AK1").Value)
End With
newname = Worksheets("Svc Report").Range("I9").Value
Range("E19:N44").Select
Selection.Replace What:=oldname, Replacement:="'" & newname & "'", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Range("C19").Select
Range("N15").Select
Selection.Replace What:=oldname, Replacement:="'" & newname & "'", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Range("C19").Select
With ActiveSheet
.Range("AK1").Value = .Range("I9").Value
End With
End Sub
Bookmarks