MS Excel

Řešením může být spojování řetězců přes ampersand.
P.

Např.:
Sheets("List1").Range("A1").Value & "*.jpg"citovat

Zbytečně složité a ukecané. Především list má kódové jméno (nejspíš List1) a je nesmysl zadávat ho Sheets("List1"), když bohatě stačí napsat List1. Rovněž Range.Value je zbytečnost, když přece Value je předdefinovaná vlastnost a stačí tedy jen Range. Zatím tedy

List1.Range("A1") & "*.jpg"

Samozřejmě mnohem lepší než pracovat s pomalou vlastností Value typu Variant je normální pracovat s vlastností Text typu string - ten totiž potřebuješ, tedy

List1.Range("A1").Text & "*.jpg"

A i to je zoufale začátečnické a nemotorné. Normální programy pracují s pojmenovanými rozsahy, protože jen tehdy změny rozložení dat v listu neovlivní program.

Pojmenuj svou buňku A1 třeba Franta a pak napiš

Range("Franta").Text & "*.jpg"

nebo pohodlněji (a jen nepatrně pomaleji)

[Franta].Text & "*.jpg"citovat

Jen technická. Pokud se budete držet zmínněmých rad (předdefinovaná vlastnost, rychlejší 'text' a nevím co ještě ) v budoucnu se jistě setkáte se situací typu "co to proboha dělá"...citovat

Ako to súvisí s pôvodnou otázkou vo vlákne?

No nič, trebárs takto:Sub test()
Dim MonthSelected As Boolean
If Not Intersect(ActiveCell, [C18:D48]) Is Nothing Then
MsgBox "duben"
MonthSelected = True
End If
If Not Intersect(ActiveCell, [K18:L48]) Is Nothing Then
MsgBox "květen"
MonthSelected = True
End If
If MonthSelected = False Then MsgBox "měsíc nevybrán"
End Sub
Asi by bolo dobré uvedomiť si, že aktívnou bunkou môže byť vždy len jedna. Riešenie odpovedá na otázku.citovat