Sub ChrisV()
'
Range("BK4:DG2000").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
With Range("BK4:DG2000").SpecialCells(xlCellTypeConstants, xlNumbers)
.Value = "X":
End With
Range("BK4").Select
End Sub