I'm sorry about the layout of what I wrote. It was right but for some reason
got rearranged when I posted it.

This macro accepts, through two InputBoxes, a cell address and a value to be
entered into that address. It then sets the interior color to gold (44). It
then looks into a cross reference matrix, which I don't bother to declare as
a matrix, Each cell in the matrix contains a range of addresses in the format
"L1:U1". It then sets the interior colors of the ten cells in that range
within the second worksheet. It then does the same with a second
crossreference and the third worksheet

"FSt1" wrote:

hi
wild guess but i would guess vb don't like your syntax.
what does this macro do?

regards
FSt1

"Jerry McNabb" wrote:

Im trying to write a macro in an excel workbook. So far I have the following:



Sub Initialize()
€˜Line 1

Dim SelectCell As Range
€˜Line 2
Dim clrGold As Integer
€˜Line 3

clrGold = Worksheets("Columns").Cells(13, 2).Interior.ColorIndex
€˜Line 4

Set SelectCell = Application.InputBox(prompt:="Select a cell", Type:=8)
€˜Line 5

Worksheets("Columns").Range(SelectCell).Value = _
Application.InputBox(prompt:="Enter value", Type:=1)
€˜Line 6
Worksheets("Columns").Range(SelectCell).Interior.C olorIndex = clrGold
€˜Line 7
Worksheets("Rows").Range(SelectCell).Interior.Colo rIndex = clrGold
€˜Line 8
Worksheets("Areas").Range(SelectCell).Interior.Col orIndex = clrGold
€˜Line 9

End Sub

Line 4 sets clrGold to 44.
In the InputBox for line 5, I enter B1.
In the InputBox for line 6, I enter 5.
Line 6 flags an error that says the object doesnt exist. I have tried hard
coding the 5 but get the same result. If I comment out line 6, I get the same
message on line 7. If I then comment out line 7, I get the same error on line
8.

Any ideas?
Thanks for the help.