Lotuxel,

Run this for me on one of the books and let me know if all the cells change color to almost black, and then back to the original color when you click a button in the MsgBox
[vba]Sub Test()
'Testing rCopy assignment

Dim rCopy As Range
Set rCopy = Range("usInput")

With rCopy.Interior
OldColor = .ColorIndex
.ColorIndex = 56
MsgBox "Check that all the Cells in usInput Changed Color"
.ColorIndex = OldColor
End With

End Sub
[/vba]

Edit: snb's will work,even if I won't understand it for another 3 hours.