Problém s kódem VBA

[Adriel12]

Zdravím,
mám menší problém s kódem viz níže. při spuštění makra, kdy se mi jednotlivé sloupce kopírují do jiného listu mi řádek If Target = "" Then - vyhazuje chybu. V tomto sloupci mám automatické otevírání kalendáře po kliknutí na buňku.
Předem děkuji za pomoc..

Option Explicit


Private Sub CommandButton1_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim oblast As Range
Dim Cancel As Boolean
Dim formular As UserForm1
Dim datum
Dim dat As String



Set oblast = Range("A1033:B7000")

'paby to fungovalo jen pro vymezenou oblast
If Intersect(Target, oblast) Is Nothing Then Exit Sub

'zrušení výběru buněk, které by za normálních okolností byly vybrany
Cancel = True

'If Target.Column = 1 And (Target.Row >= 4 And Target.Row <= 41) Then

If Target = "" Then
UserForm1.Show
datum = Range("W3").Value
Dim den, mesic
den = Day(datum)
mesic = Month(datum)

If den < 10 Then
den = "0" & den
End If

If mesic < 10 Then
mesic = "0" & mesic
End If

dat = mesic & "/" & den
Target.Value = dat
End If

End Sub

[Reklama]