Can't figure out how to use a column of data from a listbox as a range.
Hope you can provide some advice.
I have an inventory database (wkbk), each item has a primary key, person,
office, sn etc... A userform is used to transfer equipment from a

I've got the following code in the "ThisWorkbook" code object.
Option Explicit
Public WithEvents App As Application
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As

I am building an Excel alarm clock for a laptop.  I am updating the display
with an  OnTime event.  One of the requirements is to autonomously detect if
the laptop switches from A/C power to its internal battery.
Has anyone come across an API that will return the power state? Say ...

I want to inform a user of incomplete cells if they attempt to move to a
different worksheet.
The Worksheet_Deactivate event takes the focus away from the current sheet
before running the code.  Is there another event I can use that runs before

In the quest to improve myself, any suggestions on better code?
I'm not interested in error trapping because this code will only be run by me.
Sub ExportCashValues()
   Dim Filename As String

Does anyone know of any illustrative examples of using Class Modules
in an excel add-in (XLA) ?
I would like to encapsulate some behaviors in an object, but that is
something I have never done nor seen done by using a Class Module.  I

When running a query from a proprietry system, the rusltant file is opened
with a name of, for example, default(1).xls
The file is opened as a temp internet file and therefore the file name could
be, for example, default(2).xls

I have created a .XLA excel add-in and everything is going fine.
In the VBA Project I can see the Module and the Workbook that comprise
the XLA when I look at the Project heirarcy.  I also see a worksheet
represented there in the hierarchy.  I can't imagine why the XLA has

This snippet of code always fails on the ActiveSheet line
Dim LastR
   LastR = Cells(Rows.Count, "P").End(xlUp).Select
   ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"

I am in the process of filling numerous Textboxes when a value is selected from a Listbox.
This part is OK and working.
But now i have 2 x Images on the userform (Imag1 and Image2)
How can i have the picture address(location on my PC) to imput the picture into the Image?

I'm trying to do the following:
   ActiveSheet.Shapes.Range(Array((myarray)).Select
when myarray is "OptionButton1", "OptionButton2"
I cannot for the life of me work out how to define myarray so that it

I am trying to saving a file based on the text name in a designated cell in
the workbook.  In other words, I am trying to save the open file as the name
that is in a cell in that open file's worksheet.  Evidently, the code below
is not the way to approach it.  I get an out of ...

I'm working with the Excel object model for 2007 and am trying to set up a
page so that it is neatly formatted with graphs and cells lining up in a
specific sequence. I'm having difficulties in how the chart sizing works
compared with the cell width etc. Ideally i want to set the ...

I have a spread sheet that is grouped where the top line of the group
determines the Qty of Item and the Total value for the item
eg 1 Table (row 1) requires 1 table top, 2 chairs and 4 legs (rows 2 to 4)
if I change the qty in Row 1 (i.e. No of Tables)  the parts automatically

I have two columns that contain data in worksheet "Programs"
Access Level    Program Name
94 95 99                   ITEMMGMT
27 99                   ORDERMGT