I have a bunch of files that all begin with a date - 20051231.  After
the date is the rest of the filename and this part of the filename
varies.  What I want to do is REPLACE the 20051231 portion of every
file in a specific folder with FINAL 2005.  To be more specific....I

I have had some else working on a check register spreadsheet and it is
almost
finished but there is still a problem with where the data is posted to.
Can

I need help with the Autofilter
I have data in worksheet "SheetA" Cells A6 to D6 that has a list of names
In worksheet "SheetB" I have data from A2 to BB2 and in column AD have a
list of names that should contain multiple instances of the names in

Trying to grab a reference to Outlook.
I first use the Getobject(,"Outlook.Application") method, this works if
outlook is open but if's it's not, I use Call Shell("dir string") to open
Outlook then use GetObject again to attempt to grab reference. This does not

Can anyone help me with a macro that will go to a particular folder in
Windows explorer and list all the files in one column of an excel
spreadsheet and the path to the file from that folder in another
column.  I need this to work on sub-directories so effectively creating

Apologies in advance because I know this is probably quite basic stuff
here...
I want to get a macro that releases all filters in all worksheets, but
I don't know how to get around the fact that a filter might not be

This preps the file as desired:
Private Sub Workbook_Open()
   Application.Calculation = xlCalculationManual
End Sub

What am I missing? This code is in the "ThisWorkbook" Module; however it
does not execute ShiftLeft and ShiftRight when the designated keys are
pressed.
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)

PROJECT 1:EXCEL and VBA
From the developer:

What is the correct syntax for;
Application.OnKey "Alt{F8}", ""?
 I need to know the syntax for adding the alt to the f8.  If I use
(Application.OnKey "{F8}", "") it works, but I don't know how to get (Alt +

Is it possible to create this using code - not just writing the code below
Private Sub TextBox1_Change()
   Cells(6, 18).Value = Application.Sheets("Sheet1").TextBox1.Text
End Sub

I use len(trim( range("blah:blah") ) ) > 0 to test wether a cell (o
range) has contents.
Code
-------------------

I have an array of data (HourData) with 20 rows and 6 columns as seen below.  
I want to find the row where the value in the 6th column is equal to or
greater than a value (X = 2700).  This should return the row 12:
8      D      E      491      21      2918

I have data being returned from a SQL view via ODBC (IDS on SuSE) where a
specific field has a value of N and n.
The problem is; only N is showing and all n's are summed in...
How can this be solved?

How do you select an Activecell.Offset range? As I am trying to copy
the cells to the left of the ActiveCell.Select.
Code:
--------------------