ExcelSujeet (YouTube Blogger)

Handle Worksheet Change Event-Based Error   Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo err 'If Not Target.Cells.Address = "$C$8" Then Exit Sub If Target.Cells.Address = "$C$8" And Target.Value = "All" Then     Target.Offset(0, 1) = "All"     Target.Offset(0, 2) = "All"     Target.Offset(0, 3) = "All" ElseIf Target.Cells.Address = "$D$8" And Target.Value = "All" Then     Target.Offset(0, 1) = "All"     Target.Offset(0, 2) = "All" ElseIf Target.Cells.Address = "$E$8" And Target.Value = "All" Then     Target.Offset(0, 1) = "All" End If err: Exit Sub End Sub

May not work -      Range("a1").AutoFilter field:=1, Criteria1:=Date Will Work      Range("a1").AutoFilter field:=1, Criteria1:=Format(Date, "DD-MM-YYYY")

Q- How to insert formula in FormulaR1C1 format with quotes (" ") in it A- Use Double Quotes in the formula. Range("B6", Cells(lng_lastrow_2, 2)).FormulaR1C1 = "=TEXT(RC[2],""MMM"")"

Merge Cells Over A Range Using For Each Loop Sub Merge_Cells_Over_A_Range()     ThisWorkbook.Activate     shtDashboard.Activate     Dim rng As Range, r As Range     Set rng = Range("B13:B153")     For Each r In rng         r.Resize(1, 3).Merge     Next r End Sub