sub sTest()
dim iTest as Long

iTest = 10

with range("A1")
.Interior.ColorIndex = iTest
end with


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Shashank" wrote in message
...
Hi !!!!!!!!!!!!!!!!!!!!!!!!!!!

I need to do something like


sub sTest()
dim strTest as string


strTest=".interior.colorindex=10"


with range("A1")
strTest ' basically formatting the range with a variable input
end with


end sub


This is just a dummy code. I need to do this as I have a range which
has different formats for different cells within the range.
I would like to store the formats in an array and apply it to the range
based on the key value or something.


Thanks !