Macro - debug error

Any help would be appreciated

Sub Shack()
' Shack Macro
    Range("$M$8").Select
    ActiveCell.FormulaR1C1 = "=$B$3+$E$8" (When I hit debug, this line was highlighted.)
    Range("$M$8").Select
    Selection.Copy
    Range("$E$8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("$M$8").Select
    Selection.ClearContents
    Range("$M$3").Select
    ActiveCell.FormulaR1C1 = "=$E$3-$B$3"
    Range("$M$3").Select
    Selection.Copy
    Range("$E$3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("$M$3").Select
    Selection.ClearContents
    Range("$E$8").Select
End Sub

Hi there,

You should really start a new thread for each separate query.

That said, I'm not sure how many arguments you're referring to when you say "etc etc" but I think the following may be what you're after:

Sub Macro1()

    Select Case Range("undeveloped").Value
        Case 3
            Range("undeveloped").Value = Evaluate("=undeveloped-3")
        Case 4
            Range("undeveloped").Value = Evaluate("=undeveloped-4")
    End Select
        
End Sub

HTH

Robert

Hi emptycucumber,

Welcome to the forum and thanks for fixing up your post.

Post back re how the following goes:

Sub Shack()
    
    Range("E8").Value = Evaluate("=$B$3+$E$8")
    Range("E3").Value = Evaluate("=$E$3-$B$3")
    
    Range("E8").Select
    
End Sub

HTH

Robert

OMG!!! AMAZING

Thank you so much. You cleaned up the code so nicely too.

Works perfect!

QUESTION: How would I go about writing a code to delete the contents of a cell?

To fix the original code:

ActiveCell.FormulaR1C1 = "R[5]C[-11]+RC[-8]

where the numbers in [] are the offsets from the selected cell.
& RC[-8] = R[]C[-8]; references a cell in the same row as the selected cell.

Hi emptycucumber,

Glad it worked

The following will delete all contents within cell A5...

Range("A5").ClearContents

...while the following will delete all contents from the range A5:B10:

Range("A5:B10").ClearContents

HTH

Robert

Works!

Hmm, actually I would prefer to make the cell value "0". How would I do that?

Range("D4").Value something?

LOL! I was about to ask you that question, but I figured it out on my own.

I'm a beginner, so excuse me Thanks for the help!

You're welcome