Runtime error 13 type mismatch ?

[JoeH]

The following code is giving me a type mismatch error. CL is defined i
DBimportfrm when it is run. The way this works is the Get_click bring
up the listbox and the selection is taken from a row (cl) and transpose
into 3 different columns. i wan't to copy those 3 columns after the
have been modified and paste them back to the row (cl) it came from.

Thanks for looking
JoeH

Public Sub Get_Click()
DBimportfrm.Show

End Sub


Public Sub Save_Click()
'Dim cl As Integer
Beep
MsgBox "This will over write the current information!"
vbExclamation, ""

------- Type mismatch occurs here -------

Wit
Workbooks("TestCalcs_rev22.xls").Worksheets("initial_information")
.Cells("E30:E88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Columns("AB").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
.Cells("F30:F88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Columns("CJ").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
.Cells("H30:H88").Copy

Workbooks("bondsdb.xls").Worksheets("sheet1").Columns("ER").Rows(cl)
_
PasteSpecial xlPasteAll, Transpose:=True
End With

End Su

 

[Tom Ogilvy]

Change CELLS to RANGE