ActiveCell

[[email protected]]

Get a funny problem which was working.

Have the following. I enter 3453 in C15.

in VB have the following

Dim InputRange as Range
Set InputRange = Activecell

This should return C15 (or the active cell address). Instead it keeps
returning 3453.

This was working previously - any ideas - only thing I can think of is
the Excel is 2003-SR1

Desperate to get this working

Thanks

[Harald Staff]

Your provided code does not return anything, it sets a range, which works,
as in:


Sub Test()
Dim InputRange As Range
Set InputRange = ActiveCell
Range("C14").Select
MsgBox "Will return from C14 to InputRange now."
InputRange.Select
End Sub

What I suspect that you do is not defining which property to use, like

MsgBox InputRange

That lazy coding is only acceptable if you know the object model extremely
well and don't share co de with others. You expect the Address property in
return, but what you get is the Value property if you leave it out:

MsgBox InputRange.Address
MsgBox InputRange.Value
MsgBox InputRange.Font.Name

HTH. Best wishes Harald

<[email protected]> skrev i melding
news:[email protected]...
> Get a funny problem which was working.
>
> Have the following. I enter 3453 in C15.
>
> in VB have the following
>
> Dim InputRange as Range
> Set InputRange = Activecell
>
> This should return C15 (or the active cell address). Instead it keeps
> returning 3453.
>
> This was working previously - any ideas - only thing I can think of is
> the Excel is 2003-SR1
>
> Desperate to get this working
>
> Thanks
>

[Gary''s Student]

It is defaulting to the Value.

InputRange.Value should give 3453
and
InputRange.Address should give C15
--
Gary's Student


"[email protected]" wrote:

> Get a funny problem which was working.
>
> Have the following. I enter 3453 in C15.
>
> in VB have the following
>
> Dim InputRange as Range
> Set InputRange = Activecell
>
> This should return C15 (or the active cell address). Instead it keeps
> returning 3453.
>
> This was working previously - any ideas - only thing I can think of is
> the Excel is 2003-SR1
>
> Desperate to get this working
>
> Thanks
>
>