Clear Contents Help
Sub ClearData
If Range("D18").Value = "Combo" then
Range("D19:D22").ClearContents
Range("D26").ClearContents
elseif Range("D18").value = "One" then
Range("D23:D24").ClearContents
Range("D26:D29").ClearContents
end if
End Sub
HTH
Die_Another_Day
michael wrote:
I'd like some help with clearing contents using vba.
If cell D18="Combo" (selected from a Data Validation List), clear the
contents of cells D19, D20, D21, D22 & D26.
If cell D18="One" (selected from a Data Validation List), clear the
contents of cells D23, D24, D26, D27, D28 & D29.
Much thanks in advance!
-Mike
|