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.