Need to create a macro that will combine 2 other macros plus

**rjackson104** · 07-01-2013, 09:15 AM

The attached file has 2 macros. One will print and the other hides rows that equal zero. It is based on the contents in Cell A4 of the sheet called PSFR. What I would like is to run a macro that gets the project number from the Project Run sheet and then runs the hide row macro and then the Print Macro. Is this possible. I have not been able to combine the two existing let alone a third. Any advise you can give me would be greatly appreciated.

Thanks

**rjackson104** · 07-01-2013, 01:57 PM

I was able to solve this on my own. Please see below for the solution

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A4:A4")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed. Press OK to Update"
        
        Application.Run "HideZeroRows"
        Application.Run "Printworkbook"

**arlu1201** · 07-02-2013, 02:45 AM

rjackson,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.