Shorten Cell Writing

[whudson1980]

So, I have a bunch of conditions, that based on those conditions, an inputbox writes to a different cell. Instead of writing the code over and over, I figured I would:

If _______ then
capCell = Sheets("SheetName").Cell(5, 5)
end if
If ________ then
CapCell = Sheets("SheetName").Cell(5.8)

etc. . .

then later, I could just:

CapCell.Value = InputBoxVariable

that way I could write to the cell at the bottom after everything is input.

But I'm getting "Object variable or with block variable not set. . . .

I did do a : dim Capcell as Range at the beginning. Am I missing something?

 

[StephenCrump]

As capCell is a range object, you need to:

Set capCell = Sheets("SheetName").Cells(5, 8)