Posts by Craig

Thank goodness, I just did it.

Application.CommandBars("Cell").controls("Insert Date").Delete

looped it ten times and they are gone.
Thanks
Craig

I have been using calendar.xla I found in this forum and now I have Insert Date tens times in my right click command bar. I tried this routine to delete it but it does not work. Please advise.
Thanks
Craig:puzzled:

I am using the following code. What I would like to know can I place data into the body of the email?
Thanks,
Craig

Sub Send_Schedule()

Dim addr As String
Sheets("Your Schedule").Select
Range("b1").Select
addr = Selection

If Application.MailSystem <> xlNoMailSystem Then
ActiveSheet.Copy
With ActiveWorkbook
.SendMail _
Recipients:=addr, Subject:="Your Schedule"
.Close SaveChanges:=False
End With
Application.MailLogoff
Else
MsgBox "No MS-postsystem are installed.", vbInformation, _
"E-mail message"
End If

End Sub:puzzled:

It is an arrow in all other applications.
It is a + in all excel workbooks & worksheets.
Thanks,
Craig

I did check the control panel and it still has arrow.
Thanks
Craig

For some reason my cursor has changed from an arrow to a + . How do I change it back?
Thanks,
Craig

Sub active_today()
Worksheets("Main").Range("A57").Select
End Sub

produces error and doesn't run
Thanks,
Craig

This macro is used on different worksheets to return the user to the main page on the row that corresponds with todays date. The cell I want to become active is A57 on the main page. I do not want to replace the value. There are 262 rows and when the user comes back to the "main" sheet he is only interested in the data in that row.
Thanks!
Craig
Sorry for being so confusing

This reply doesn't work. It places A57 in the cell A57.

Sub copy_value()
Sheets("Main").Select
Range("A57").Value = Range ("A263").Value
End Sub

The contents of A263 is A57

Thanks for the help!
Craig

How do I substitute the value contained in Main!A263 for the "A57" below?

Sub Macro1()

Sheets("Main").Select
Range("A57").Select

End Sub

A57 represents today's date in column A on the main sheet and its location is computed in a263

Thanks in advance!
Craig

Why does this not write to the test.txt?

Sub WriteToTextFile()

Range("A1:T133").Select

Data = Range("A1:T133").Value

Open "C:\EXCEl\test.txt" For Output As #1

Write #1, Data

Close #1

End Sub

Thank you very much. I just started last week with macros and VB. I was working on using a DO loop until the B4.value <>o
Your solution is very clean and straightforward. I need to learn the objects? or whatever things like End(xlUp) are called.
Thanks,
Craig

{How do I replace the 3 with the next empty row in this line of code; Range("B3").Select ?} Then line; Range("B4").Select needs to be one greater.

Sub Macro1()
'
' Macro1 Macro
'
Sheets("Sheet2").Select
Range("A2:X2").Select
Selection.Copy
Sheets("Sheet3").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B4").Select
Sheets("Sheet1").Select
End Sub

[quote]Originally posted by Tom Urtis
Here's an example to demonstrate how this could be possible.

This works perfectly. Exactly what I needed.
Thanks,
Craig

Thanks for the welcome and reply. I currently use the option Jim gave. However, this is limited to the use of 4 different background colors. I need 7.
Thanks again for the suggestions.
Craig

I would like to do a drop down list entry for a cell. I want the drop list to have the value in a cell PLUS have the background color associated with the choice value.
Thanks
Craig: