I am trying to enter in macro cod a value from a worksheet rang
the worksheet range is "AL2"; value in range can be a number or date
I believe following code in macro enters value into macr

Range(Range("AL2")).value.selec

When editing macro want to know value or date that has been entered
Need code to display in macro what has been entered
Also, what code uses that value so it can be used with other code

Thank
Bob Leonar

One approach:

Sub test()
Dim var As Variant

var = Range("AL2").Value

If VarType(var) = vbDate Then
MsgBox Format(var, "dd-mmm-yyyy") & " is date"
ElseIf IsNumeric(var) Then
MsgBox var & " is number"
End If
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"rleonard" wrote in message
...
I am trying to enter in macro cod a value from a worksheet range
the worksheet range is "AL2"; value in range can be a number or date!
I believe following code in macro enters value into macro

Range(Range("AL2")).value.select

When editing macro want to know value or date that has been entered?
Need code to display in macro what has been entered?
Also, what code uses that value so it can be used with other code?

Thanks
Bob Leonard

Rob
What I need is code to display in Macro when open for editing the value of AL2 which contains Row # 4

following is part of my code

' Before runing Macro must Edit the Row # the Scores are being entered in
' Range(Range("AL2")).Value.Selec
Dim var As Varian
var = Range("AL2").Valu
MsgBox var & "is number


'Highlight following code at this point, select EDIT, then Replace; in Replac
'Box in Find What area, enter Row # to find and replace; in Replace With area
'enter Row # where you want scores copied to

NEED TO DISPLAY VALUE OF WORKSHEET RANGE "AL2" HERE SO KNOW WHAT TO CHANGE 36 TO

FOR EXAMPLE CURRENT ROW TO POST IS: 4

' Macro set up to enter Scores in Row
'3

'Displays Row # in workshee
'ValueRow = 3
Range("AJ22").Selec
ActiveCell.Value = 3
'ActiveCell.Formula = ValueRo

'Team
Range("c36").Selec
'Application.Goto Reference:="R36C3" 'c3
ActiveCell.Formula = Value01
Range("i36").Selec
'Application.Goto Reference:="R36C9" 'i3
ActiveCell.Formula = Value01

Range("p36").Selec
'Application.Goto Reference:="R36C16" 'p3
ActiveCell.Formula = Value02
Range("v36").Selec
'Application.Goto Reference:="R36C22" 'v3
ActiveCell.Formula = Value02
'Team

Thanks for your hel
Bob Leonard