Please read my first post again.
Add "Option Explicit" as the first line in the module (without the quote marks)
Following code uses "<<<<" where changes have been made or
"????" where immediate changes should be made...
Note: Spreadsheet and Worksheet are the same thing;
a Workbook contains worksheets/spreadsheets.

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


'--
Sub Step2_Extract_Profiles()
Dim Rng_1, Rng_2, Rng_3, Rng_4 'As Integer <<<<
Dim ProgName, Levels As String

Dim rCell As Range '<<<<
Dim cell As Range '<<<<
Dim paste_Here As String '<<<<
Dim copy_From As String '<<<<
Dim logOn As Variant '<<<<

Sheets("Profiles").Activate
Range("B2").Select
paste_Here = ActiveCell.Address '<<<<

Sheets("Ecometry Data").Select
Range("A1").Select
Rng_1 = ActiveCell.Address
ActiveCell.SpecialCells(xlLastCell).Select
Rng_2 = ActiveCell.Address

Sheets("Programs").Select
Range(first_prog).Select '???? does nothing
ProgName = ActiveCell.Value
ActiveCell.Offset(0, 1).Select '<<<<
Levels = ActiveCell.Value

Sheets("Ecometry Security").Select
Range("A2").Select
Rng_3 = ActiveCell.Address
ActiveCell.SpecialCells(xlLastCell).Select
Rng_4 = ActiveCell.Address

For Each rCell In Range(Rng_3, Rng_4) '<<<<
If rCell.Value = ProgName Then '<<<<
If InStr(Levels, cell.Offset(0, 1).Select) Then
Selection.End(xlToLeft).Select ' get logon name
logOn = ActiveCell.Value
Sheets("Ecometry Data").Select
For Each cell In Range(Rng_1, Rng_2)
If cell.Value = logOn Then
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
copy_From = ActiveCell.Address
Sheets("Profiles").Activate
Range(paste_Here).Select
Selection.PasteSpecial Paste:=xlPasteAll, operation:=xlNone, _
skipblanks:=False, Transpose:=True
cell.Offset(2, 13).Select
Range(copy_From).Select
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Profiles").Select
Selection.PasteSpecial Paste:=xlPasteAll, operation:=xlNone, _
skipblanks:=False, Transpose:=True
Application.CutCopyMode = False
Range(past_here).Select '???? spelling
cell.Offset(0, 3).Select
paste_Here = ActiveCell.Address
End If
Next cell
End If
End If
Next rCell

Cells.Select
Cells.EntireColumn.AutoFit
Range("C2").Select
End Sub
'--



"El Bee"
wrote in message
Jim,
I guess I should inclueded the entire SUB. All the wksheets are in the same
spreadsheet. The complete error is,
"Compile error: For control variable already in use."
-snip-