Syrax,
descobri depois que o problema do código, a incompatibilidade ao depurar estava em outra parte da linha, não no rng
SUB rng_teste(ByVal planilhaBase as Worksheet)
Dim rng As String
rng = "A:A"
c = Worksheets(planilhaBase).Range(rng).Value
end sub
no caso eu estava acessando a sheet por parâmetro, e no caso o correto seria
SUB rng_teste(ByVal planilhaBase as Worksheet)
Dim rng As String
rng = "A:A"
c = Worksheets(planilhaBase.name).Range(rng).Value
end sub
ou seja, faltou o .name e por isso dava erro
Obrigado pelas colaborações!
Postado : 17/05/2017 4:52 pm