I am trying to make a spreadsheet write "A" in itself and also in another worksheet on click
I can get it to do everything but write - it opens the work sheet (updates, saves & closes)
But I get an error when I try to write to the other workbook, I know I am referencing it wrong but Im not sure how


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("b2:c200")) Is Nothing Then
        Target.Font.Name = "Marlett"
                If Target = vbNullString Then
           Target = "a"
        Application.ScreenUpdating = False
        ThisRow = Target.Row
        Workbooks.Open(Filename:="\\To Do\sharedlist.xlsm"). _
        Windows("SharedList.xlsm").Activate
        Set ws = Worksheets("Timers")
        'Problem is in next line
        'Range(b, ThisRow) = "a"
        Application.Run "SharedList.xlsm!UpdateTimers"
        ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
        ActiveWorkbook.Save
        ActiveWindow.Close
        Application.ScreenUpdating = True
        Windows("Production view.xlsm").Activate
        Else
           
        End If
    End If
End Sub