I want to be able to de-select all toolbars for the user of a file and,
when the project is complete, re-select the toolbars they originally
had visible.
I have a routine (at work, unfortunately) that will de-select all

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MyResponse As WorksheetFunction
   If Range("F31") = "" Then
       Range("F31").Select

Say you are using Data -> Validation -> List where you add options like
this 1,2,3,4
Assume now you are doing this for every single cell in a matrix 5X5 for
example.

Hello.  The bwlow snippet of code return each sheet in a workbook.  Is there
a way to return on sheets that are visible?  Thank you!
  For Each sh In bk.Worksheets
       ThisWorkbook.Worksheets("Sheet Verify").Cells(cell.Row, j).Value =

I would like to have a Macro to split the text entries in one cell into
two or more other cells.
eg: if the entries are like:
Cell D2 :    "CX55742A-CI   CY55742AAA-CI#"

I get  an error whe trying to set a range on the thisworkbook.range
dim lcolumn as string
lcolumn =
ThisWorkbook.Worksheets(2).Range("IV1").End(xlToLeft).Offset(0,

Is there a way to have excel start at a certain time?
I would like to be able to have Excel start at a specified time and open a
specific file which in turn would run a series of routines to do what I need
done.

is it possible to use a drop down list as a selector of diferent cal
process
senario: lets say we need to make a booking form very obvious so t
lesson mistakes espeacilly on the finacial side , the list boxes w

I have the following code in an excel spreadsheet to send email. The sending
of the email works fine but it does not make excel the active window after
sending. Is there a way to make excel active again so I can run other code
without having to manually activate excel.

I'm new to this programming thing, and am making a simple mistake I'm
sure.  I'd like to set a document property to equal a cell's value,
that cell is named "total".  What is wrong with the following?  It sets
the comments value to the word total, not the numeric value in the cell

I am trying to sort a sheet alpahbetically  From a Column and I want
all of the adjoin values and text from a row to move with it
can this be done
Painter

I hope someone can figure out what i am doing wrong
here is the code, then the explanation at the end
_____________________________________
Dim WS As Range

I am trying to find a range of Numeric values i.e.  .25 to 100 and
replace it with a single Text character such as   (*) .  The find field
does not seem to be able to deal with a range of numbers.
If anyone has a solution please let me know.  

Having in times past encountered very freakish behavior of IF...THE
clauses,  I now wish to bring up some of my observations for  commen
and possible explanation.  Below are 4 trumped-up cases each showin
the evaluation, or lack of it, of the conditions set out in eac

I have a directory of zip files which I want to calculate the (gross) file
size of. Does anyone here know of a way to expose this information using VBA?