Lets say that data to select from is numbers 1 - 20
Lets say I wish to take the person from Sheets 1 - 20 accordingly
How can I do that
TIA
Esra
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Integer
If Not Intersect(Target, Me.Range("A1")) Then
d = CInt(Me.Range("A1").Value)
If (d >= 1 And d <= 20) Then
Me.Range("B1").Value = _
ThisWorkbook.Worksheets("Sheet" & d).Range("A1").Value
End If
End If
End Sub
Hopefully this is what you meant.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Integer
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
d = CInt(Me.Range("A1").Value)
If (d >= 1 And d <= 20) Then
Me.Range("B1").Value = _
ThisWorkbook.Worksheets("Sheet" & d).Range("A1").Value
End If
End If
End Sub