Hi Hardy,

Try this:

Sub Update()
Dim FIData As Range
Set rngFIData = Range("FIData")
rngFIData.Select
:
:
End Sub

or this

Sub Update()
Range("FIData").Select
:
:
End Sub


Good luck,

Wouter