Run Time Error 1004

[jyokom]

The following code worked several times and is now giving a Runtime Error and tagging the dst.value = frm value portion

Sub UpdateWeekly()
Application.ScreenUpdating = False
Dim i, ofst As Integer
Dim frm, dst As Range
Set frm = Sheets("Weekly").Range("K5:BDI6")
Set dst = frm.Offset(2, 0)
frm.Replace "=", "#"

ofst = 8
For i = 1 To 2 'Sheets("Names").Range("A" & Rows.Count).End(xlUp).Row

dst.Value = frm.Value

dst.Replace "8", ofst + 6
dst.Replace "9", ofst + 7
dst.Replace "#", "="
ofst = ofst + 6
Set dst = dst.Offset(2, 0)
Next i
frm.Replace "#", "="
Application.ScreenUpdating = True
End Sub

Any ideas on why this is happening?

 

[AvcGJS]

iI'd start by checking if something has changed in the structure of the sheet - name of a tab maybe, if FRM value is on Weekly Tab in range K5:BD16 - check there is info there and it hasnt slipped off somewhere else, that there is still a weekly tab etc...

 

[jyokom]

Not sure what was causing it. I saved and restarted Excel and it is working fine.

 

[James Snyder]

Excel occasionally gets lost on the way to the corner store...

 

[jyokom]

Now it is giving the same error. Restarting doesn't clear it.

 

[James Snyder]

Sounds like a possibly corrupted spreadsheet. In the past, I have copied the code into a text file, either exported or rebuilt any UserForms, and started a brand new workbook by creating a new module and pasting the text from the last worksheet into it.

EDIT: ^^ That is the 'bigger hammer', but you could try the same with just that function first.