Formula "TYPE" into Function for VBA

[Maurizio]

Hi all,

how can I "converting" this formula:

Range("B2") = "=TYPE(RC[-1])"

into VBA ?

as:

Msgbox Application.WorksheetFunction.Type("B2") ---> (but does not work!!!)


Tia.

 

[ISY]

Ciao

MsgBox [TYPE(B2)]

 

[Maurizio]

Ciao

MsgBox [TYPE(B2)]

Simply... fantastic !

 

[Maurizio]

Hi ISY,

and with a loop...?

i.e.:
from D2 to D999

For i = 2 To 999

...
Next i

Tia.

 

[Fluff]

How about

Sub Maurizio()
    Dim Cl As Range
    
    For Each Cl In Range("D2:D5")
        MsgBox Evaluate("type(" & Cl.Address & ")")
    Next Cl
End Sub

 

[Maurizio]

Hi Fluff,
Perfect ! Thnks

 

[Fluff]

You're welcome & thanks for the feedback