'sorry for the delay i have been out for a big while!


Sub AAA()
Dim Cell As Range
Dim Sht As Worksheet

Dim Rg As Range

'if you sheet with the proper email addresses are in a sheet
'named Peter
'change andoni for peter
'but in my computer works properly
Set Rg = Sheets("andoni").Range(Range("A1")
Range("A65536").End(xlUp))
For Each Cell In Rg
For Each Sht In ThisWorkbook.Sheets
If Cell.Value = Sht.Name Then
With Sht
.Visible = True
.Activate
.Rows(1).Insert
.Range("A1").Value = Cell.Offset(0, 1).Value
Exit For
End With
End If
Next Sht
Next Cell
End Su

--
Message posted from http://www.ExcelForum.com