Private Sub Import1_Click()

Dim wba As Workbook

Dim ls_Rangestringa As String

Dim ll_Rownumbera As Long

ll_Rownumbera = 4

ls_Rangestringa = "B" + CStr(ll_Rownumbera)

Application.ScreenUpdating = False ' turn off the screen updating
On Error goto ErrHandler
Application.EnableEvents = False
Set wba = Workbooks.Open("H:\My
Documents\AttendanceUpdate\NewEmployeeData.xls")


With ThisWorkbook.Worksheets("Emp1")
.Range("B4").Value =
wba.Worksheets("NewData").Range(ls_Rangestringa).V alue

wba.Close False

Application.ScreenUpdating = True ' turn on the screen updating

End With
ErrHandler:
Application.EnableEvents = True
End Sub

or perhaps

Private Sub Worksheet_Change(ByVal Target As Range)

ThisWorkbook. Worksheets("Main").emp1.Caption = _
ThisWorkbook.Worksheets("Emp1").Range("B4").Value

End Sub


--
Regards,
Tom Ogilvy


"Qaspec" wrote in message
...
I am trying to run one macro but get an error message fron another macro
in
the same worksheet. Here is the macro I am running

Private Sub Import1_Click()

Dim wba As Workbook

Dim ls_Rangestringa As String

Dim ll_Rownumbera As Long

ll_Rownumbera = 4

ls_Rangestringa = "B" + CStr(ll_Rownumbera)

Application.ScreenUpdating = False ' turn off the screen updating
Set wba = Workbooks.Open("H:\My
Documents\AttendanceUpdate\NewEmployeeData.xls")

With ThisWorkbook.Worksheets("Emp1")
.Range("B4").Value =
wba.Worksheets("NewData").Range(ls_Rangestringa).V alue

wba.Close False
Application.ScreenUpdating = True ' turn on the screen updating

End With
End Sub

When I run this macro I get an error message
"Subscript out of range" then "Not enough system resources"

Here is the code the debugger highlights

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Main").emp1.Caption = Worksheets("Emp1").Range("B4").Value

End Sub

Thanx for any help.