Como posso usar várias células no método range em vba

Question

Estou tentando configurar o método de dois intervalos de células. Eu estou tentando selecionar E e G, então eu estava usando.

  ActiveSheet.Range ("D" & ActiveCell.Row & ":G" & ActiveCell.Row) 

Continuou recebendo um erro. Existe alguma outra maneira de fazer isso.

    

Answer 1

Você deve usar Set :

Sub dural()
    Dim rng As Range
    Set rng = ActiveSheet.Range("D" & ActiveCell.Row & ":G" & ActiveCell.Row)
    MsgBox rng.Address
End Sub