Help with Excel Cell Properties

[ravenx]

With VBA and Excel, how can I loop through the properties of a given cell and determine their values? I'm looking for something like

Dim MyProp           as Property
Dim MyCell           as Range
Set MyCell = "$A$1"
For each MyProp in MyCell.Properties
   Debug.Print MyProp.Name & " " & MyProp.Value
Next

Unfortunately, this won't work. Any suggestions??

 

[ratman]

Consider this:
you can write your results to anywhere but if you just need to write them to say the cell to the right of it then...

Sub determinecellvalue()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
[A1].Activate
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(0, 1).Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub


I fthis doesn't work or if you want to talk email me at
drat@mediaone.net

Ratman