I have the following code with pops up a  conditional message box and
inserts Text into Cell D10 (which is prepopulated using =Now() to insert
Date/Time.  I need format of Cell D10 to change to General so that the Text
"Closed" -- inserted by the Input Bos will display properly.

I want to drop a shape on a visio drawing using vba in visio or excel. If I
use the macro in Visio I want to get the name of the shape to drop from a
cell on a worksheet or from a variable name in an excel macro. Can anyone
help? Thanks.

I have two columns in a spreadsheet labeled Project No. and Project Name.  As
users continually add entries to those columns, I want to create a button
called "Sort by Project Number" at the top that toggles between ascending and
descending order (in other words, if the Project ...

I am working in a workbook with multiple sheets.  A change event in sheet A
triggers some manipulations of data and ranges in sheet B.  It also changes
the cell selection the next time sheet B is activated.  Is there a way to set
the selected cell for the next opening of sheet B, ...

Is there a way to program cell fill colors on and off.
Either using the "IF" statement or some other way?

How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font properties and
setting individually
I have tried all manner of variations on the theme:

I've taken several stabs at this and am not getting anywhere.  When I
use the save button on the toolbar, the BeforeSave event below works as
expected.  However, when I envoke a save from another macro (btnSave),
the event does not actually save when the filename is not the

The following code is triggered by a workbook change event, then if
the activeworksheet name is in the list, asks for a password to grant
the user access to edit the activesheet. This sets the boolean
variable bPwrdEntered to true, which allows the user to edit that

Have a list in column A.  Every 13th row, I'd like to add a row.   Then in
that new row, I'd like to Concatenate the text in the first row with the text
in the 12th row (in cell A13).  From there, it would step down another 13
rows, insert a row, and in that new cell concantenate ...

I attempted to edit a macro from you folks to protect all sheets, because I
noticed that, if I hid some sheets, then the macro crashed.  I added two
rows, the if statement and the rem statement.  This is still crashing with a
worksheet hidden.  I guess it may be that it can't ...

XP Pro, Office 2003 Pro
I"ve never run into this before. I've got a user defined function:
Function fn_SummaryPage(in_date As Date) As Double
Dim nd_row As Integer, is_Rt As Integer

I have an application that I am going to build which will manage a table of
Contacts (about 75) and then Account Statements for those contacts. For
various reasons, I am going to build this in Excel.
My question is this. Would it make more sense to build a single workbook

I'm searching for VBA code or other means that would prompt for a password
when a check box is checked.  I'm not a VBA wiz kid so please be gentle if
this is a stupid question.

I have created a Pivot Table (source is an OLAP Cube) and I would like to
create a calculated field that is the difference between 2 columns (not the
total), but since my source is an external OLAP cube I can't use the Pivot
Table toolbar function to create a calculated field.  I ...