hi..

i need a macro to run when a user open the workbook.

should be something like.

if sheet1 range a1="a"
Application.Run "INVENTRY.xls!newday.newday"

if sheet1 range a1="b"
Application.Run "INVENTRY.xls!update.update"

if sheet1 range a1="c"
select sheet1 rangec115


i allready got the 2 macros (update & newday) working but need the workbook
to check the condition of range a1 in order to perform the various tasks

Hi,

Try this

Private Sub Workbook_Open()
Select Case Sheets("sheet1").Range("A1").Value
Case "a"
Application.Run "INVENTRY.xls!newday.newday"
Case "b"
Application.Run "INVENTRY.xls!update.update"
Case "c"
Sheets("Sheet1").Range("C15").Select
End Select
End Sub

Mike

"pswanie" wrote:

> hi..
>
> i need a macro to run when a user open the workbook.
>
> should be something like.
>
> if sheet1 range a1="a"
> Application.Run "INVENTRY.xls!newday.newday"
>
> if sheet1 range a1="b"
> Application.Run "INVENTRY.xls!update.update"
>
> if sheet1 range a1="c"
> select sheet1 rangec115
>
>
> i allready got the 2 macros (update & newday) working but need the workbook
> to check the condition of range a1 in order to perform the various tasks
>

and this i paste in the

right click on thingie next to file and then view?

Sub RunWhenOpenDocument()

Select Case Range("Sheet1!A1").Value
Case "a"
Application.Run "INVENTRY.xls!newday.newday"
Case "b"
Application.Run "INVENTRY.xls!update.update"
Case Else
Range("Sheet1!C115").Select
End Select

End Sub

Save this macro in Sheet1, and in ThisWorkbook, under the event Open, insert
the line
Sheet1.RunWhenOpenDocument

Stephane Quenson

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200708/1