Posts by Rennie


    Please see the attached spreadsheet.

    I have used 2 steps to try and do this.

    1. isolate the fist names and the surnames.

    2. Use a pivot table to see the result.

    Hope this helps,


    I have water marks created using word art on a number of sheets in a workbook.

    I want to write a procedure to change the text in all the shapes in the work book.

    I have tried writing a procedure seems to not work can someone tell me whats wrong.

    Sub Change_Text()
    Set myDocument = ActiveWorkbook
    Selection.ShapeRange.TextEffect.Text = Worksheets(1).Range("A1").Value
    End Sub

    I would appreciate any help.

    shannon1027 - on what basis do the workers get a break - can you put rules to work this out. i.e. if a worker works for 8 hours they get a 1 hour break etc?

    If this is the case it is a matter of testing the length of each shift and deducting a certain amount of time.


    Hi Guys,

    Sorry for starting this up. I was not aware of the seriousness of this issue.

    All I wanted to was to make the user display a particular dialog box and not let the user bypass this step. I thought one way of doing this would be to force the user to enable macros.

    Again thank you for pointing out the dangers of doing this. I might have had to spend $$$$$$ in lagals if I had gone through with it.

    I was looking for an Icon symbolising the action of kicking my self, could not find one.

    Private Sub Auto_Open()
    'Range "DateCheck" is a named cell on XlVeryHiden Sheet.
    If Range("ExpDate") <= Range("SentDate") + 30 Then
    Else 'Set first open date
    MsgBox ("Your password expires on " & Range("SentDate") + 30)
    End If
    End Sub

    Is it possible to write a macro to make a certain file not open 30 days after it is first openned.

    i.e. Does not require a password for the first 30 days but needs a password after 30 days of use.

    I would appreciate any help on this