Hi all gurus, i have issues with 2003 with a button, if i press a button it
will ask the user to select a cell with an email address in and it will then
email the relevant user, this works fine in 2007 but not in 2003.

Is they any code i should put in to make it compatitible with 2003?

Thanks.

Hi Neil

Try the below macro..

--Edit the extternal workbook name and path
--Edit the destination sheet name...
--Edit the copy desitnation. Currently that is mentioned as cell A1

Sub Macro()

Dim wb1 As Workbook, wb2 As Workbook

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Open("c:\1.xls")
wb1.Sheets("Sheet1").Range("A21:S81").Copy wb2.Sheets("Sheet1").Range("A1")
wb1.Sheets("Sheet2").Range("A21:S81").Copy wb2.Sheets("Sheet2").Range("A1")
wb2.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

--
Jacob


"Neil Holden" wrote:

Hi all gurus, i have issues with 2003 with a button, if i press a button it
will ask the user to select a cell with an email address in and it will then
email the relevant user, this works fine in 2007 but not in 2003.

Is they any code i should put in to make it compatitible with 2003?

Thanks.

Please ignore my previous post... The macro which I posted yesterday around
selecting email addresses was done in XL03

--
Jacob


"Jacob Skaria" wrote:

Hi Neil

Try the below macro..

--Edit the extternal workbook name and path
--Edit the destination sheet name...
--Edit the copy desitnation. Currently that is mentioned as cell A1

Sub Macro()

Dim wb1 As Workbook, wb2 As Workbook

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Open("c:\1.xls")
wb1.Sheets("Sheet1").Range("A21:S81").Copy wb2.Sheets("Sheet1").Range("A1")
wb1.Sheets("Sheet2").Range("A21:S81").Copy wb2.Sheets("Sheet2").Range("A1")
wb2.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

--
Jacob


"Neil Holden" wrote:

Hi all gurus, i have issues with 2003 with a button, if i press a button it
will ask the user to select a cell with an email address in and it will then
email the relevant user, this works fine in 2007 but not in 2003.

Is they any code i should put in to make it compatitible with 2003?

Thanks.