hi guys,

i have the following

Sub daterange(Optional today As Date)

today = Date

For Each cell In Worksheet("updated calls").Range("H:H")
If cell.Value < "" Then
If cell.Value = today Then
sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
End If
End If
Next
If sStr < "" Then
MsgBox sStr, , "message here"
End If
End Sub


Im trying to assign the macro to a button, but the nacro doesnt appear
in the macro list.

Any thoughts? thnx

Sub daterange(Optional today As Date)

If you specify a parameter, even optional, the macro will not appear in the
list.

And since you have this:

today = Date

you're overriding it anyway so you might as well remove the parameter.

--
Jim
"SangelNet" wrote in message
ps.com...
| hi guys,
|
| i have the following
|
| Sub daterange(Optional today As Date)
|
| today = Date
|
| For Each cell In Worksheet("updated calls").Range("H:H")
| If cell.Value < "" Then
| If cell.Value = today Then
| sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
| End If
| End If
| Next
| If sStr < "" Then
| MsgBox sStr, , "message here"
| End If
| End Sub
|
|
| Im trying to assign the macro to a button, but the nacro doesnt appear
| in the macro list.
|
| Any thoughts? thnx
|

Save it in your Personal.xls workbook and you'll see it then. If you don't
have one, hit the record a macro button, select personal macro workbook from
the "Store macro in" drop down, do something, then stop recording, you will
now see it anytime you have the editor open, put your code in there.
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"SangelNet" wrote:

hi guys,

i have the following

Sub daterange(Optional today As Date)

today = Date

For Each cell In Worksheet("updated calls").Range("H:H")
If cell.Value < "" Then
If cell.Value = today Then
sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
End If
End If
Next
If sStr < "" Then
MsgBox sStr, , "message here"
End If
End Sub


Im trying to assign the macro to a button, but the nacro doesnt appear
in the macro list.

Any thoughts? thnx

On Nov 1, 4:10 pm, "Jim Rech" wrote:
Sub daterange(Optional today As Date)

If you specify a parameter, even optional, the macro will not appear in the
list.

And since you have this:

today = Date

you're overriding it anyway so you might as well remove the parameter.

--
Jim"SangelNet" wrote in message

ps.com...
| hi guys,
|
| i have the following
|
| Sub daterange(Optional today As Date)
|
| today = Date
|
| For Each cell In Worksheet("updated calls").Range("H:H")
| If cell.Value < "" Then
| If cell.Value = today Then
| sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
| End If
| End If
| Next
| If sStr < "" Then
| MsgBox sStr, , "message here"
| End If
| End Sub
|
|
| Im trying to assign the macro to a button, but the nacro doesnt appear
| in the macro list.
|
| Any thoughts? thnx
|

Thnx, That was it! fix in a jiff!!