Error in a Code. Object variable or With block variable not set????

Hi All :-)

I am getting an error in my code and have no clue what is wrong?? It was working before and now I am getting this :
Run time error 91
Object variable or With block variable not set



This is the whole code:

Private Sub CommandButton1_Click()
  If Me.ComboBox1.ListIndex < 0 Then Exit Sub

  With MyRange.Cells(1).Offset(ComboBox1.ListIndex)

    .Offset(, 0).Value = ComboBox1.Value
    .Offset(, 21).Value = TextBox1.Value
    .Offset(, 19).Value = TextBox2.Value
    .Offset(, 20).Value = TextBox3.Value
    .Offset(, 25).Value = TextBox4.Value
    .Offset(, 22).Value = ComboBox29.Value
    .Offset(, 23).Value = TextBox32.Value

  
     
  End With

  Unload Me
  MsgBox "Record Updated"
  UserForm1.Show
  
End Sub

Thanks for help
Dan

No Idea Mate I got this from my Buddy. so not really sure what this mean????

Not too sure as my project is huge and contains sensitive data.
Let me have a look...

Well I can't do it as I would have to breakdown the whole file which will have an impact on the code as some codes referring to different userforms which I can't show.....

The MyRange could differ from workbook to Workbook

Hi All
I have sorted it please see the below code, it had a range missing.....

Private Sub CommandButton1_Click()

Application.ScreenUpdating = 0
Dim MyRange As Range
 Set MyRange = Sheets("Sheet1").Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)

  If Me.ComboBox1.ListIndex < 0 Then Exit Sub

  With MyRange.Cells(1).Offset(ComboBox1.ListIndex)
    .Offset(, 0).Value = ComboBox1.Value
    .Offset(, 21).Value = TextBox1.Value
    .Offset(, 19).Value = TextBox2.Value
    .Offset(, 20).Value = TextBox3.Value
    .Offset(, 25).Value = TextBox4.Value
    .Offset(, 22).Value = ComboBox29.Value
    .Offset(, 23).Value = TextBox32.Value
     
  End With

  Unload Me
  MsgBox "Record Updated"
  UserForm1.Show
  
End Sub

Thanks