ActiveSheet points to the sheet you’re currently looking at; it might be a worksheet or a chart sheet, so check the type and, for safety, reference the workbook and sheet explicitly.
ActiveSheet
Excel VBAのActiveSheetは、ExcelのVBA(Visual Basic for Applications)プログラミング言語で使用される重要なオブジェクトの一つです。
Dim ws As Worksheet
If TypeName(ActiveSheet) = "Worksheet" Then
Set ws = ActiveSheet
ws.Range("A1").Value = "OK"
Else
MsgBox "いまはグラフシートです。ワークシートに切り替えてください。"
End If