Dim WS As Worksheet
Set WS = Worksheets("記録")
Worksheets(WS).Activate　←

で、矢印の部分で型が一致しないって出るんですけど、String型でないと駄目ッてこと
ですか？