Sub weekly_reset()
If Range("a22") = 0 Then
Range("a22") = Range("M14")
If Range("b22") = 0 Then
Range("b22") = Range("M14")
If Range("c22") = 0 Then
Range("c22") = Range("M14")
If Range("d22") = 0 Then
Range("d22") = Range("M14")
Else: Dim Msg As String, Ans As Variant
Msg = "Four weeks have passed. Do you want to reset the weekly log and start a new month?"
Ans = MsgBox(Msg, vbYesNo)
Select Case Ans
Case vbYes
Range("A22:d22").ClearContents
Range("a22") = Range("M14")
Case vbNo
GoTo Quit:
End Select
End If
Range("M14").ClearContents
End Sub
Why does this keep telling me "block if without end if" when there clearly is an "end if"
excel 2010 btw
thanks
Bookmarks