1 -
StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
If StrDosyaAdi <>"" and InStr(StrDosyaAdi,  CStr(Range("G6").Value), 1 )>0 Then 'hem dosya adı varsa hem de dosya adında G6 hücresinin değeri varsa
GoTo 30  'xlsm varsa yapılacaklar
Else
GoTo 20  'yoksa yapılacaklar
End If
2 - diyelim ki etkin Excel dosyasının olduğu klasörde *.xlsm dosyası var ve isminde G6 değeri de var, o zaman ne yapacak dosyayı güncelleyip kapatacak mı?
dosyayı güncelleyip adını mı tarihe göre değiştirecek?