- Press and hold the Control key and then press the Plus key (Cntl + +)
I tested this under Windows 7.
I tested this under Windows 7.
‘shade cell with “yes”
If Target.Row > 1 And Target.Column = 2 Then
If Target.Value = “yes” Then
Cells(Target.Row, Target.Column).Interior.ColorIndex = 50
Else
Cells(Target.Row, Target.Column).Interior.ColorIndex = 2
End If
End If
The only downside to this method is that it runs only after editing a cell. Therefore, if you already have cells with information, you have to re-edit each cell to get the macro to run. This can be done somewhat easily by hitting F2, then the Enter key. For large amounts of data, you need to write a wrapper macro that you can run once on the sheet.
Sub PasteSpecialAsText()
Selection.PasteSpecial DataType:=wdPasteText
End Sub
[Source LifeHacker]
As an example, I had a file that was originally 8,594 KB. After using the above procedure it was reduced to 6,353 KB.