you did not tell us what "did not work sometime" means. What doesn't work?
what message?
try
dim last row as LONG

--
Don Guillett
SalesAid Software

"daniel chen" wrote in message
...
The following codes did not work sometime.
Can you help me with its limitation if any, Please.
It hang up as "Type mismatch"
on LastRow = Cells(.Rows.Count, "A").End(xlUp).Row

Dim LastRow As Integer
Set LogWksh = Worksheets("TestSheet")
With LogWksh
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With