Related Posts
What does Amdocs provide to a 2.6 YOE candidate?
Anyone here 40s never married, no kids?
Additional Posts in Excel Genius
Anyone know what these badges are?

New to Fishbowl?
Download the Fishbowl app to
unlock all discussions on Fishbowl.
unlock all discussions on Fishbowl.







Sub Macro1()
Dim rng As Range, cell As Range
Dim rng1 As String
Set rng = Selection
For Each cell In rng
cell.Select
rng1 = ActiveCell.Address
Sheets("Sheet2").Select
Range(rng1).Select Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 30)).Select
Selection.Copy
Sheets("Sheet3").Select
Range("A7").Select
If ActiveCell.Offset(1, 0).Value = "" Then
Else
Selection.End(xlDown).Select
End If
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
rng1 = ""
Sheets("Sheet1").Select
Next cell
Sheets("Sheet3").Select
Range("A8").Select
End Sub
But also modest?!!
Z c
T. Fm mrx Ty
!
Lynx