I created the code with excel 2003 and transfered it to my new system with
office 2007 enterprise and now the calender will not work here is the code I
use.
Private Sub Calendar1_Click()

How would you set  focus back to a form once a new cell has been clicked ?
I’v tried the following but no luck
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   UserForm1.TextBox1.SetFocus

When I Import Data (MS Query) into my spreadsheet is asks for destination
cell.  Is it possible to extract this cell address from the MS Query object
after-the-fact?
Thanks

1) Where can I find a list of all the object collections in VBA?  
2) What function/property returns an objects Collection (i.e. fnc(worksheet)
= Worksheets
3) Is it possible to create custom collections?  How do you do this?

I am using the following code to loop through the UsedRange of  worksheet:
For Each Cell In sh.UsedRange
I want to replace the .UsedRange property of the worksheet with a new range
via string variable called WorkingRange which has a new range address i it.  

I am writing a service that picks up spreadsheets from an FTP drop location
uploaded by customers.  I am leary of security problems because a customer
could unknowingly upload a spreadsheet with some malicious VBA.  I am using
excel interop to open the spreadsheets via C#.  Macro ...

I am probably making this more complex than I need to, so what is the
simplest way to loop through an array, looking for possibly three common bits
of data and adding them together. Using a wine example... I am searching a
series of 800+ records for:

I am writing a macro in Excel and I have a workbook that has worksheets with
multiple tabs. (An example of the tab names is: VFD11, VFD2, VFD1, VFM42,
VFM2).
Each tab has a three letter prefix (ex. VFD, VFM) and I have to sort

Hi, I think this is a quick one:
I have a whole column of values that are formatted as "Date" but some of the
values are actual dates, while some are text. I want to cut and move the text
values and ignore the real dates, but the code below isn't working to pick

I need to format 5 sheets the same way; number formats, borders, etc.  The
number of rows to format on each sheet is different. I'd like to loop through
the formatting code but specify the range to format on each sheet.  Starting
row on each sheet is 9, but I need to determine ...

I have had the following code (basic I know but hey!) working from a private
sub on a form code (FrmEnterData) before.
I am trying to use the selection in the combobox CmbReason1 using select
case to populate the offset command to enter a "1" in the correct column.

I use a form to enter data pertaining to a project
I would like to use the same form to call up the entered data so that it may
be edited.
The entered data is currently pasted into a set selection of cells on one of

I have combo box that allows users to select from a list or enter a
value freeform.  I also have a change event for this combo box.
Everything works fine when the user selects from the list, but when he
or she enters a value by hand, the change event sometimes fires twice

How to preserve the customized menues from one PC to another?
Emiliano

can someoen remind me what this syntax means:
Sheets(1).ChartObjects(1).Chart
Is this referencing the first sheet (i.e. left to right in window)?
Thanks