Try this...

Sub copyRange(sRange As Range, dRange As Range)
If (sRange.Cells.Count = dRange.Cells.Count) Then
sRange.Copy
dRange.PasteSpecial(Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True)
Application.CutCopyMode = False
End If
End Sub
--
HTH...

Jim Thomlinson


"Zilla" wrote:

I get error 1004 "Unable to get the pastespecial property of the range
class". Thanks again!

' Generic subroutine to transpose a range of cells
' from source to destination
' *** WARNING ***
' This should be used when ranges match, i.e, source and
' destination ranges have the same number of cells
Sub copyRange(sRange As Range, dRange As Range)
If (sRange.Cells.Count = dRange.Cells.Count) Then
sRange.Copy dRange.PasteSpecial(Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True)
Application.CutCopyMode = False
End If
End Sub