Hello,
I'm trying to rename a merged cell and I'm getting the following error and the last line of the code is highlighted when I debug:
Run-time error '70' : Permission denied
I think I might be missing something simple. Any ideas??
I'm trying to rename a merged cell and I'm getting the following error and the last line of the code is highlighted when I debug:
Run-time error '70' : Permission denied
Code:
Sub RenameCell()
'
' '
Sheets(Sheets.Count).Select
Cells.Find(what:="general ledger", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Name = "January 2010"
End Sub
I think I might be missing something simple. Any ideas??