Resaltar celdas de una hoja a otra en libro excel

Tengo el siguiente código en un formulario el cual me resalta los números que están en una hoja como en la otra hoja pero quiero modificarlo ya que al ejecutarlo tiene problemas y resalta números que no están

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("programa4cifras").Select
With ActiveWorkbook.Sheets("programa4cifras").Tab
.Color = 255
.TintAndShade = 0
End With
Sheets("chance").Select
With ActiveWorkbook.Sheets("chance").Tab
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
End With
Sheets("semana").Select
With ActiveWorkbook.Sheets("semana").Tab
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.249977111117893
End With
Sheets("loteria").Select
With ActiveWorkbook.Sheets("loteria").Tab
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399975585192419
End With
End Sub