TIM wrote:
I get run time error 13
type mismatch
from this line of code in VB

Cells(cLastRow + 1, "B").Value = Cells(cLastRow, "B").Value + 1

is cLastRow a number?

my first two tests work OK herehe

Sub test()
Dim cLastRow As Long
cLastRow = 7
Cells(cLastRow + 1, "B").Value = Cells(cLastRow, "B").Value + 1
End Sub

Sub test2()
Dim cLastRow As String
cLastRow = "7"
Cells(cLastRow + 1, "B").Value = Cells(cLastRow, "B").Value + 1
End Sub

test3, not surprisingly, produces a type mismatch

Sub test3()
Dim cLastRow As String
cLastRow = "G"
Cells(cLastRow + 1, "B").Value = Cells(cLastRow, "B").Value + 1
End Sub


--
Steve Garman