Sai code replace

[Phương Phương mito]

Kính gửi các Anh chị
Đoạn code sau của em bị báo lỗi đoạn im đậm mà em chưa hiểu nó bị sao ạ. Anh chị xem giúp em với ạ. (Nút bấm của em ở sheet 1).


Sheet15.Range("D4:E19").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[befaint]

Sheet15.Range("D4:E19").Select

Sheet15.select '<---------- Thêm dòng này
Sheet15.Range("D4:E19").Select

 

[Phương Phương mito]

Sheet15.select '<---------- Thêm dòng này
Sheet15.Range("D4:E19").Select

Cảm ơn Anh nhiều ạ !