Hi. I'm still quite new to VBA programming and would like any assistance on the following problem I have. Quite simply, After clicking a button to start the script, the user enters a week number which then takes them to the relevant worksheet from where the macro deletes the previous chart and then uses a fixed cell range to create a new chart in the worksheet where the button is contained (SUMMARY). I have written some script to move the chart (named MyGraph) to a specific location on the workbook but this part of the script does not seem to be working but I don't know why? If I create the script on a separate macro and run it separately then it works perfectly! I have listed the script I have written below (apologies for its crudeness):

Sub GotoSheet()
Dim LColumnLetter As String
Dim LBook As String

LBook = InputBox("Please enter the week number you want to graph including space e.g. Wk 1")

For i = 1 To Worksheets.Count
If Worksheets(i).Name = LBook Then
exists = True
End If

Next i
If Not exists Then
MsgBox "Error - This Worksheet does not exist!"

End If

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(LBook).Range("A5:B22")
ActiveChart.Location Where:=xlLocationAsObject, Name:="SUMMARY"
ActiveSheet.ChartObjects("MyChart").Delete
ActiveChart.Parent.Name = "MyChart"
ActiveSheet.ChartObjects("MyChart").Activate
.HasLegend = False
.HasTitle = True
.ChartTitle.Text = "Late Submissions For " + LBook
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Project Managers"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "No of Late Submissions"

THIS IS THE PART THAT'S NOT BEING PICKED UP

Dim Ch As ChartObject
Set Ch = Worksheets("SUMMARY").ChartObjects("MyChart")
With Ch
.Left = Range("M50").Left
.Top = Range("M50").Top
.Width = Range("M50:T70").Width
.Height = Range("M50:T82").Height
End With
End Sub

Any help would be gratefully accepted!