S
stvgarner
Any idea what I am doing wrong here:
Sub TestRangeValue()
Dim dValue As Range
Set dValue = Application.InputBox(prompt:="Enter Cell Reference to Ge
Color Value For", Type:=8)
ActiveCell.Value = "=TSColor(" & dValue & ")"
End Sub
TSColor is a function I created to pull the background color in numbe
format so it could be sorted by color. I am trying to get this to typ
the formula for them (kind of a teaching thing for new formulas) whe
they select the range to use. I am getting the value in the range
select and not the range itself. If I enter C7 into cell C7 this work
to put the formula in cell C8 but if they select C7 and it is blank i
returns '=TSColor()'
Thanks for any help
Sub TestRangeValue()
Dim dValue As Range
Set dValue = Application.InputBox(prompt:="Enter Cell Reference to Ge
Color Value For", Type:=8)
ActiveCell.Value = "=TSColor(" & dValue & ")"
End Sub
TSColor is a function I created to pull the background color in numbe
format so it could be sorted by color. I am trying to get this to typ
the formula for them (kind of a teaching thing for new formulas) whe
they select the range to use. I am getting the value in the range
select and not the range itself. If I enter C7 into cell C7 this work
to put the formula in cell C8 but if they select C7 and it is blank i
returns '=TSColor()'
Thanks for any help