A da koristiš Template?

ne znam kako? Nisam bas profi za excell vise sam korisnik koji tezi ka tome?

nasao sam kod koji brise celiji pri otvaranju

Private Sub Workbook_Open()
With Sheets("Sheet1").Range("B1")
.Font.ColorIndex = 0
.ClearContents
.Font.Bold = False
End With
End Sub

ali nece da obrise merged cell samo singl cell

e sad pomocu moje upornosti nasao sam i kod koji brise merged cell ali samo ako se klikne na macro dugme da to uradi ali meni treba da bude pri otvaranju kako to?

Option Explicit

Sub ClearRange()

Dim DelRange As Range
Dim MergeRange() As String
Dim Cel As Range
Dim i As Long

'Change this range as needed.
Set DelRange = Range("A1:D50")

For Each Cel In DelRange
If Cel.MergeArea.Cells.Count > 1 Then
i = i + 1
ReDim Preserve MergeRange(1 To i)
MergeRange(i) = Cel.MergeArea.Address
Cel.MergeArea.UnMerge
End If
Next

DelRange.ClearContents

If i > 0 Then
For i = 1 To UBound(MergeRange)
Range(MergeRange(i)).Merge
Next i
End If

End Sub

resio sam problem i evo resenja ako dodje neki neuki kao ja!

Ovaj kod brise sva unlock polja!
Znaci pposto zakljucate sva polja koja ne zelite da brisete onda upisete ovaj kod i to je to!

Private Sub Workbook_Open()

With ActiveSheet
.Protect
Application.DisplayAlerts = False
On Error Resume Next

.Cells.Value = vbNullString

On Error GoTo 0
Application.DisplayAlerts = True
.Unprotect
End With

End Sub

Nema na cemu!!!

ipak nisam resio, Bitna stvar je da ovaj kod brise samo active sheet, znaci sheet u kom se nalazite? Ali je ipak bitan pomak, Samo bih voleo pomoc da mi kazete kako da uvek brise sve sheetove?