mrexcelhelp123
New Member
- Joined
- Mar 10, 2010
- Messages
- 38
HI, I have the code I'm using now which works but was wondering if someone can help me condense it to do the same thing: THANKS!
Code:
Sub Modify_Instr_Tab()
Dim ws As Worksheet
'Assigns a due date to cell D10
Worksheets("Instructions").Range("D10").Select
ActiveCell.Formula = "5/28/2010"
'Assigns another due date to cell E10 if applicable
Worksheets("Instructions").Range("E10").Select
ActiveCell.Value = "NO UPDATE REQUIRED"
'Shades range A10:E10
Range("A10:E10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
For Each ws In Sheets(Array("Instructions"))
'Unshade filling for range A9: E9
With ws.Range("A9:E9")
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
'Clear contents for range D9:E9
ws.Range("D9:E9").ClearContents
End With
Next ws
End Sub
Last edited by a moderator: